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APPENDIX  A 


A  SAMPLE  PROBLEM 


V/e  have  chosen  a  relatively  small  sample  problem  to  illustrate 
an  implementation  of  the  branch-and-bound  algorithm  and  its  correspond¬ 
ing  program.  We  will  structure  the  problem  from  a  user*s  viewpoint, 
formulate  the  objective  function  and  the  constraint  set,  illustrate 
the  preparation  of  the  data  decks  and  user's  subroutines,  and  explain 
the  logic  of  the  results.  The  problem  to  be  described  here  has  been 

4 

discussed  in  a  previous  document. 

The  Ace  Trucking  Co.,  in  planning  for  next  year's  workload, 
estimates  that  the  company  can  serve  its  customers  with  a  fleet  of  6? 
light  trucks  and  l6  cross-country  trailers.  An  alternative  fleet  was 
also  considered  consisting  of  43  light  and  20  medium  sized  trucks, 
together  with  only  7  cross-country  trailers.  Finally,  the  only  other 
practical  alternative  considered  was  a  mix  of  42  medium  trucks  and  12 
of  the  big  trailers.  The  medium  trucks,  however,  are  of  a  new  design 
and  will  not  be  available  for  next  year  unless  the  company  is  willing 
to  pay  a  substantial  premium.  At  first  it  appeared  that  choosing  one 
of  these  three  alternative  fleets  (shown  in  table  form  below)  was 


Figure  A-1  ALTERimTIVE  FLEET  MIXES  FOR  1972 


A-1. 


the  only  decision  issue.  However,  it  soon  became  clear  to  the  planning 
group  at  Ace  Trucking  Co.  that  the  investment  decision  should  also 
depend  on  the  utilization  of  the  trucks  in  subsequent  years,  in  addition 
to  that  utilization  planned  for  the  next  year.  And  furthermore,  the 
existing  fleet  of  trucks  was  far  from  obsolete,  even  though  maintenance 
costs  on  some  of  the  older  vehicles  were  beginning  to  climb.  Realizing 
these  factors,  the  planning  group  estimated  the  workload  for  their 
trucks  over  the  next  three  years  (beyond  which  they  could  not  be  con¬ 
fident  of  their  estimates),  and  then  prepared  a  requirements  table  like 


Figure  A-2  CAPITAL  EQUIPMENT  (TRUCK)  REQUIREMENTS 
AS  A  FUNCTION  OF  TIME 

The  existing  fleet  did  not  include  any  medium  sized  trucks;  60  light 
trucks  were  two  years  old,  but  the  remaining  20  were  purchased  only  last 
year.  The  inherited  trailers  were  also  two  years  old.  Finally,  based 
on  the  projected  cash  flow  position  of  Ace  for  the  next  three  years,  it 
was  decided  that  a  limit  (cost  constraint)  be  placed  on  new  truck 
procurements  for  each  of  the  three  years.  Decision  time  for  Ace 


*  Costs  constraints  wer^  not  imposed  on  this  problem  in  the  previous 
referenced  description;^  hence,  a  slightly  different  solution  was  obtain' 
ed. 
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Trucking  Co.  is  January  1972,  and  the  question  is:  what  is  the 
optimal  plan  over  the  next  three-year  period? 

Initially,  one  should  ask;  how  many  alternative  p].ans  exist?  If 

we  permute  three  alternatives  per  year  with  three  years,  we  develop  27 

alternative  plans  —  but  this  number  ignores  all  permutations  of  the 

existing  fleet  as  well  as  all  concern  for  the  "welfare"  of  the  inherited 

fleet  from  year  to  year.  In  addition,  there  are  questions  like  "buy"  or 

"lease,"  ...  "sell,"  "salvage,"  or  "store,"  etc.,  making  the  number  of 

alternative  plans  very  large  indeed  (literally  thousands  even  in  this 

trivial  problem).  In  fact,  for  real-world  problems,  it  would  not  be 

atypical  to  have  millions  of  possible  alternative  plans  confronting 

the  decision-maker,  each  involving  a  maze  of  cost  factors  —  making 

evaluation  of  each  and  every  plan  rather  impractical.  Problems  like 

this  can  be  solved  efficiently,  without  evaluating  each  and  every 

alternative,  using  the  mathematical  programming  techniques  embodied 
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within  the  Falk-Soland  Algorithm. 

The  objective  function  for  this  problem  is  developed  from  the 
general  form  of  Fig.  3-1  (page  3-ll)  plas  projected  estimates  of  the 
cost  coefficients  for  each  cost  catagory.  We  have  only  three  vehicles 
under  consideration  but  we  artifically  introduce  a  fourth  vehicle  (and 
call  it  14EDIUM*)  to  account  for  the  premium  charge  ^  we  buy  MEDIUM 
trucks  for  the  first  year  (1972).  That  is,  the  program  will  treat  the 
purchase  of  MEDIUM  trucks  and  MEDIUM*  trucks  separately,  as  if  they 
were  distinct.  In  figure  A-3  we  show  the  reduced  form  of  the  objective 
function.  Note  that, 

(1)  There  is  only  one  (possible)  R&D  charge  and  that  is 
associated  with  the  MEDIUM^  vehicles  (called  vehicle  No.  1; 
the  LIGHT, MEDIUM,  and  TRAILERS  are  numbered  2,  3,  and  4, 
respectively. 

(2)  We  use  no  increase  in  operating  cost  over  time  (for 
simplicity)  hence,  we  drop  the  second  subscript  in  the  c 
coefficients  as  well  as  the  summation  over  k. 

(3)  We  have  introduced  the  specific  values  for  the  number  of 
vehicles  (N=4)  and  the  length  of  the  planning  period 
(Y=3)  where  they  appear  in  figure  A-3. 


A-3 


The  constraint  set  is  developed  from  the  general  descriptions 
given  in  Chapter  3  (starting  on  p.  3~l)* 

The  material  bala.nce  constraints  become: 
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Note  that  we  ha,ve  assumed  no  a.ttrition  (v  ,  =1)5  ^-^d  ha.ve  assigned 

X/ 

the  t^^  factor  =  1  for  all  mission  groups. 

The  consistency  constraints  reduce  to: 


a 

J’’  hu  =  l;  e  =  1.  2.  3  and  i  =  1,  2.  3 

k=l 


The  vintage  constraints  for  the  light  trucks  and  trailers  are: 


9+i 

i  =  2,  4  and  £  =  -1,  0 

m=o 


where  L.  has  been  replaced  by  10  subperiods  (years)  for  all  vehicles 

and  K.  by  “1  for  both  inherited  vehicles. 

0 

The  master  variable  constraints  are  simply: 
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1  =  1,  2,  3,  4 
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Finally,  ai„ce  we  have  choaen  to  Introduce  cost  constraints,  wo  have 


^  .  a  +  P 

■  I 


Ls  OoV  '"7  --tralnt,  =  $150,000.. 

^250,000..  and  $300,000.,  for  the  three  years  of  the  planning  perio 

respectively.  The  linear  approximation  a“,  to  the  procurement  cost 

nnction  wall  be  selected  after  inspection  of  the  actual  cost  vs 
quantity  curve. 

A  careful  Inspection  of  the  total  constraint  set  for  this 
problem  will  indicate  a  total  of  2k  constraints  (recall  that  there  is  no 

"  ToT 

b-  >  <=0]).  Similiarly.  a  count  of  the  number  of  variables 
eang  careful  to  delete  those  which  must  equal  tero  because  of  specific 
exc  usions  an  thas  sample  problem)  will  indicate  a  total  of  60  The 
reader  will  note  that  the  GENK.P  Progrs«  automatically  computes  and 
prints  these  totals  for  use  in  the  BBOAV  2  Program. 

The  us  °'7  7  ->«>routlnes. 

ae  .  „  ,  '’°™  program  listing  on  pageD-32  . 

rs  here  that  we  describe  the  E&D  and  procurement  equations  for  the 

our  vehicles  in  the  sample  problem.  Mote  that  vehicle  Mo.  1  (MEDIUM*) 
has  an  RM  (premium)  charge  of  $300,000.*  _  the  other  three  vehicles 
have  no  RS,D  charge  and  their  procurement  costs  are  simply  described 

by  concave  functions  of  the  form  nr  r.ra 

one  lorm  ax  .  Of  course,  other  forms  of 

-P t ^4,  _ _  ,  -  . 


concave  functions  could  have  been  used. 


*  We  have  chosen  to  scale  all  costs  bv  in^  mva- 

cost  data  should  be  multiplied  by  lO^f  *  means  that  all  final 
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The  only  ether  user  subroutine  YRCOST  (see  page  D-I9)  is  prepared 
for  use  in  the  GEMLCP  program,  then  duplicated  for  use  in  REPGEN.  As 
described  previously  on  p.  4-lOof  chapter  4,  YRCOST  is  used  to  calculate 
the  operating,  mothballing,  salvage,  and  truncation  cost  coefficients, 
c  ,  d  ,  e.,  (m-'?,+l)  and  f.,  (Y-^,+1)  respectively.  For  our  sample 
problem,  we  \)se  no  increase  in  operating  cost  overtime  (R=0.);  a 
mothballing  savings  factor  of  R1  =  0.9;  a  salvage  savings  factor  of 
alpha  ■-  0.5;  and  truncation  savings  based  upon  a  linear  decay  from 
an  estimate  of  the  purchase  cost  (input  through  the  GENLCP  data  deck) 
and  an  assumed  10  year  lifetime  for  each  vehicle. 

The  data  deck  for  the  GENLCP  program  can  now  be  prepared  (see 
figure  A-4). 

In  entry  (card  image)  No.  1  we  give  the  problem  title,  the  first 
and  last  year  of  the  planning  period,  and  then  specify  the  four  vehicle 

tables,  three  task  tables,  and  five  period  tables  -  the  first  two 

of  which  are  inherited  periods.  Entry  2  is  the  VEHICLE  header  card 
for  the  first  vehicle.  Entry  3  describes  the  first  vehicle  as  LIGHT, 
indicates  an  availability  date  of  1970  (i.e.  an  inherited  vehicle) 
and  finally  a  ten  year  vehicle  lifetime.  Entry  4  indicates  that  60 
light  vehicles  were  purchased  in  1970  and  20  light  vehicles  were  purchased 
in  1971.  Entry  5  indicates  a  $3,000.  purchase  cost  estimate  for  purposes 
of  calculation  of  the  truncation  and  salvage  value,  a  ten  year  operating 
cost  of  $120,000.,  zero  R&D  cost  for  the  light  vehicle,  zero  attrition 
for  the  light  vehicle,  and  finally  an  estimated  linear  purchase  cost 
coefficient  of  $3,000.,  respectively.  This  linear  purchase  cost 
coefficient  estimate  was  based  upon  a  study  of  the  corresponding 
non-linear  procurement  equation  for  the  light  vehicle.  In  general.^ one 
should  choose  the  cost  coefficient  (slope  of  the  straight  line)  such 
that  the  straight  line  intersects  the  non-linear  curve  at  or  about 
the  estimated  solution  value.  The  consequences  of  a  poor  estimate  will 
be  described  shortly.  Entries  6  through  15  simply  complete  the  vehicle 
tables.  Entries  16  through  31  describe  the  period  tables.  The  first 
tv;o  periods  (1970  and  1971)  are  inherited  periods.  In  period  1972 
we  indicate  a  cost  constraint  of  $150,000.  in  entry  21.  Entry  22  specifies 
.  that  there  exists  only  one  task  in  1972  and  its  scale  factor  is  1.0. 


A-7 


4 


1 

2 

3 

4 

5 

6 

7 

8 


c  A  MPL.  197?  1^74 

V'^HICLT  ■  . 

light  197P  I? 

.  6G  70 

,?C3  .1? 

VGHICl.r 

M'DIl-'V.*  197?  10 

.006  . .14-  - 


0.0 


-.300; 


9 

VPH 1  CL" 

10 

MPDIvAV  1973  - 

to . 

11 

•  ^06 

.  1  4 

12 

•  . 

13 

tF  MLP^  197-' 

1 

l4 

■  -  4 . 

15 

•  nl 

.16 

16 

. . . . 

17 

197C 

18 

■  nc-p  I  . . . .  *  " 

19 

197]  1071 

"20  ■' 

■  3D  ■  . . 

21 

197?  10-7?  .it: 

22  ■ 

. . . . . .  T . .  ’ 

- 

XT - 

23 

1  1  #0 

24  ‘ 

■  r?- P  ICD  -  ■  - 

25 

1973  1977 

26' " 

■  1  ■  -  - . 

-  t . 

n  . - . 

27 

?  1 

28 

'  1 00  . . . 

29 

1974  1974  ,3 

30 

■'  . - 

•  •“T  i' 

O"  . 

31 

3  1  .C 

32 

. *  - - 

33 

1 

7 

34- 

— - 

A-Jf - 

“—■TP  Xrl  t:  F-P " 

35 

47*0  0.9 

16*C 

■36  ■ 

43*0  .  -?c-.0“ 

- . - . 

1  .0 


n  •.  0 


1  .0 


1  .0 


.003 


.006 


.006 


.01? 


37 

38 

39 


'^.O 

. TA‘G’>'- 


1  7, 


4o 

■  ■  L  I 

*^00  TO?* ^"7’ 

r.r' 

■■ 

4i 

A9.0 

0.0 

0.0 

17.- 

42 

4^  .  0 

?  9  .  ^ 

r>  ■  - 

•-  .  ‘ 

3  •  C 

43 

^  .  C 

40 

0 .0 

1^.0 

44 

.0 

0".0  ■ 

*'77.  O'  • 

•  •  “  6'.  C . . 

45 

0.0 

o.c 

46.0 

1  3 . 0 

46 

47 

48 

t4  9K 

L  1  -’’^7 

MOD  T  yr.^¥- 

I  O'*'* 

ile:p 

49 

-7  P  .  r' 

0  .  ^ 

-  ,0 

13.^ 

50 

4°  .0' 

•  T  •  ^ 

■  \Ci^ 

51 

.  0 

^  0  •  0 

^ 

16.'^ 

52 

4f  .7 

0  .  " 

94 . 0 

10."' 

53 

0  1  ^0 

0  . 

00. 0 

1  C:  . 

54 


c-m^T4"L^ 


Fig.  A-4  The  Sample  Problem  Data  Deck  for  the  GENLCP  Program 
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The  remaining  entries  in  the  period  tables  should  be  self  explanatory. 

The  task  tables  are  input  next.  Entry  33  specifies  that  task  No.  1 
will  have  three  vehicles  and  three  alternatives.  Entries  34  through  37 
input  the  alternative  set  for  the  first  year  of  the  planning  period 
(compare  with  the  figure  A-2).  The  alternative  sets  for  the  second 
and  third  years  cf  the  planning  period  follow.  Note  that  because  of  the 
introduction  of  the  artificial  MEDIUM*  vehicle,  the  complete  set  of 
permutations  yield  five  distinct  alternatives  instead  of  the  original 
three.  This  data  deck  ends  with  an  ENDTABLE  card  in  entry  54. 

We  now  run  (process)  the  GENLCP  program  and  obtain  the  printout 
of  Eigure  A-5:  parts  (a)  through  (f).  Part  (a)  simply  prints  out  some 
input  information  for  checking  purposes,  and  reorders  the  vehicles 
according  to  the  magnitude  cf  the  R&D  charge;  note,  in  this  regard,  that 
the  MEDIUM*  truck  is  "called"  vehicle  No.  1  (XOl)  since  has  the 
R&D  charge. 

In  the  first  section  of  Part  (b),  a  summary  of  the  constraint 
equations  for  this  sample  problem  is  listed;  the  row  type  (E  for  equality 
and  N  for  free),  then  the  row  name  is  printed  in  accordance  with  the 
symbolic  naming  convention  of  Fig.  4-3.  The  second  section  of  part  (b), 
and  continuing  in  part  (c),  lists  the  variable,  the  columns  in  which 
it  appears,  and  its  corresponding  coefficient.  Similiarly,  the  last 
section,  labeled  RHS,  gives  a  summary  of  those  rows  (constraint 
equations)  which  have  non-zero  right-hand- sides. 

Part  (d)  provides  a  cross-reference  list  of  variable  number 
versus  variable  name  for  use  in  the  interpretation  of  the  output  from 
the  BBCAV2  program.  The  last  section  of  part  (d)  indicates  that  there 
are  25  rows  and  6l  columns  in  this  sample  problem.  Note  that  in  each 
case  these  are  one  more  than  was  indicated  previously  because  the  cost 
row  and  the  right  hand  side  variable,  respectively  are  now  included. 
Finally  the  upper  bounds,  computed  by  the  GENLCP  program,  are  listed  for 
the  master  variables;  the  minus  sign  here  is  superfluous. 

Part  (e)  prints  a  cost  summary  on  each  vehicle  along  with  the 
components  of  the  inherited  fleet.  Then  in  the  last  section  of  part  (e) 
and  continuing  in  part  (f),  the  task  (alternative)  tables  are  reproduced. 
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Fig  A-5(a)  GENLCP  Output  For  Sample  Problem 

A  -10 


/ 


0 


SAMPLE 


••'MAMc 
•  P  D '  J  S 


^  1-1 

SU’-'XO  1 

->  rl 

supxa? 

’>  £ 

sumxg:5 

3UMXG4 

"  .  £ 

PCQl 

E 

PC  02 

h: 

PC0  3 

c 

IVJ0  2P  ■!! 

rr 

*  L. 

IW0  2P0  0 

fl 

I W 04? Ml 

1-1 

XOlPO  1 

E 

X02P01 

•>  E 

XO 4PQ1 

T-  t.“ 

TOlPOl 

>  p 

X01P02 

C 

X02PG2 

^  E 

X 03^0 2 

^  E 

X04P02 

>  tr 

T02P02 

c. 

X  0  i  P  0  3 

-  E 

XG2P03 

•>  E  X03F0i 
»  :£  X^LPQS 
E  TO.iPO  ? 
U  COST 


'*■  O 

OLUMMS 

(PAPTIAI.  LISTING) 

-> 

XOl 

SUVPXOI 

- 1 . 0  11  0  0 

V* 

xa2 

SUMX02 

-1,0000 

X  03 

SUMX03 

-1.0000 

X04 

sunxoA 

“1,0000 

POl 

PC  0  1 

1.0000 

#,v 

?0i 

pcrj2 

- 1  .  0  0  G  0 

PJ2 

PCD2 

1.0000 

?n2 

PC  0  3 

-1.0000 

>A 

pn3 

PC  0  3 

1 , 0  0  i)  0 

wo2i:no 

COST 

-  ,  0  0  Q  3 

W02:UOO 

IW0  2->Ml 

1.0  0  0  0 

'•JO  2  Mi  01 

COST 

,0116 

J.t 

W02M101 

TWO  2PM 1 

1  0  0  0  il  0 

> 

M  0  2 1-;  1 0  1 

X02iMji 

-1.0000 

VJ  Q2I'1;)  2 

COST 

,  0  233 

■,J0  2i;i  j2 

IW02PM1 

1 . 0  0  0  0 

WI12H 1 02 

X()2'>01 . 

■  - 1 , 0  0  0  O' 

■V* 

VJ  0  2 . :  10  2 

Xi:2:»;)2 

- 1 . 0  0  a  0 

W0  2iil0  3 

COST . ■  ■ 

■  .0345 

vJQPMl  0  3 

I HO  2PM  1 

1,0)00 

0  ;  i  i  o  3 

X  0  2  T-"  0  1 

-i.OOOO 

'-in?:' 1-0  3 

X0?Pil2 

-1,0000 

ilOPi'.lO  3 

X  ;l  2 ’  0  3 

1.0000 

-V. 

Vi  n  £  0  2  0  0 

COST 

-.I)'')  15 

v; 2  'J  u  0  0 

L  '.  'i  0  2  '  G  0 

1 .  !3  0  0  0 

• !  ”  '2  0  0  1 1. 

r.o';  T 

.011  2 

'.•!  0  2  '1  J '  )  J. 

I 1)  2''’  Q  0  ' 

1  ,  0  0  0  0 

i-i  0  v  0  n  1 1 

X  0  2  P  0  J. 

- 1. ,  0  0 ;;  0 

M  2  ■)  0  J  2 

Cijs  r 

,02  36 

0  2  i)  0  !)  2 

I  Vi  0  2  f'  G  0 

1 .  0  1  0  0 

iJ  2  ii  'J  0  2 

A  0  2;'^  01 

- 1 ,  J  0 1;  0 

;  !  !  2  •:  )  0  1 2 

<  IJ  2  P  0  2 

- 1  ,  0  0  0  ’ 

Fig  A-5(b)  GEHT.CP  Output  F-: 

Sample  Problem 


A- 11 


"■W0  20’0’0  3'' 

“COST . 

. .  0'34"2 

- - ^  - - - 

♦ 

W020003 

IW02P00 

i.oooa 

♦ 

■ W020003' ' 

‘XOPPOl . . 

. . -1.0  000' 

- - - -  - . 

♦ 

W  0200  0  3 

X02P02 

-1.0000 

♦ 

W020003 

X02P03  . 

-1.0000 

.  •  •  •  - 

■  ♦ 

W04M100 

COST 

-.0025 

W04M1Q0 

I W  0  4  P  M  i 

i  .  0000 

.■  ♦ 

W04M101 

COST 

.0147 

.  -  * 

W04Miai' 

IW04PMi 

1.0000 

:  » 

W04M101 

X04P0i 

-1.0000 

r-  ♦ 

■W04Mi0  2 

•COST  ■  . 

.0314 

. . . ■ 

-  * 

W04Mia2 

IW04PM1 

1.0000 

r  ♦ 

Wd4Ml(j2 

Xd4P01 

-1.0000 

5  ♦ 

W04M102 

X04P02 

-1.0000 

* 

■W04M103  ■ 

COST 

.  0  430 

— - - — .  . .  , .  — . —  _ 

z  ♦ 

W04H103 

IK'04PH1 

1.0000 

♦ 

W  0  4  N  i  d  3 

X04P0i 

-i .  0000 

’  *■  ‘  . . . 

♦ 

W04M103 

X04P02 

-1.0000 

* 

W04M103 

X04P03 

-1. 0000 

PQ301G3 

X02PG3 

78.0000 

P03Q1Q3 

X04"P05 

18.0000 

— 

* 

P030103 

T03P03 

1.0000 

P03C203 

X01P03 

24.0000 

- 

¥ 

P0302Q3 

X02P03 

48.0000 

. 

P  0  3  0  2  0  3 

Xd4P03 

iO.OQOO 

. 

* 

P0302Q3 

T03PG3 

1.0000 

P(3  3  03Q3  ■■ 

XCiP03‘" 

5070  0  0  0“ 

. . . . . . 

* 

P030303 

X04P03 

16.0000 

¥ 

P030303  ‘ 

T03P03 . 

1.0  0  00“ 

- : - - -  . -  . . . . 

* 

P030403 

XQ2P03 

48.0000 

P  0  3  0  4  0  3 

X  0  3  P  0  3 

24.0000 

..  . 

♦ 

jf  ■ 

P030403 

X04P03 

10.0000 

P  0  0  U  4  0  3 

”103.^03  . . 

'T.  0  0  00“ 

.  . 

V 

P03Q503 

X03P03 

50.0000 

-  -. 

P030503  ■■ 

X04P03'  . . . 

16.0000 

“  * -  "  - 

■'  ^ . 

P030503 

T03P03 

1. 0000 

X  u  1  u  x5  J  o 

'  SU.MX dx 

.  l.'UOXff” 

¥ 

X0i0303 

X01P03 

-1.0000 

X  0 1 0  3  0  3 

"PC  d  3 . 

70  D60" 

♦ 

XQ10303 

COST 

.0085 

■X0  20  3  0  3"- 

■  SUMX02 

1.0000" 

- - - - - 

....  .H*.  .  .. 

X020303 

X02P03 

-1.0000 

tT 

X  0  2  0  3  0  3 

PC  0  3 

.  0030 

.  . . 

¥ 

XQ20303 

COST 

.  0093- 

-  ^  .... 

X030303' . 

suMxa3  '  . . . 

1.0  0  00  ■■ 

-  „  - - - - 

“‘4 . 

X03D303 

X03P03 

-1.0000 

X  U  0  U  o  0  o 

PC0  3~“ . 

.ooeo" 

. . 

♦ 

X  030  30  3 

COST 

,  0086 

X  U  4  U  3  U  3 

SUMX  04 

l.OGCiO  ■ 

,  “  4"” 

X040303 

X04P03 

-1. 0000 

X  U  U  o  U  o 

PC  0  3" 

roipo'" 

-  - 

■“  KTj  IJ  O' 

X040303 

COST 

.  0070 

^KHS 

Fig  ff-5Cc7  UERECF' Output '  f6?  ■“ 

♦ 

RHSl 

PCOl 

.1500 

Sample  Problem 

”'-v> . 

■RHSl  . . . 

■PC'0'2 - - 

. . .  250  0'  ■ 

,  ..  . . . . . .  —  — . — . 

RHSl 

PC03 

.  3000 

RHSl 

IW02PH1 

60. 0000 

. .  - .  . 

« 

RHSl 

IW02P00 

20.0000 

RHSl 

IW04PM1  •  ■  • 

4.0000 

—  . .  .  '  . 

"”  4 — 

RHSl 

TOlPQl 

1. 0000 

“RTisr 

T02P02 

. ■■r7o-ooa"“ 

. . 

4 

RHSl 

T03P03 

1.0000 

A-12 

■*eHDArA . . . 

- - 

- .  . — . . . - . - . - . — 

I 


CVJ  fO 

ro 

(NJ  (M 

ro 

ro 

ro 

o  c:? 

CD  O 

O  CD 

CD 

CD 

CD 

f 

*-4  CD 

•P 

P  CM 

PJ 

PJ 

r 

ro 

>:  t  3 

O  C3 

O 

LD  (.D 

CD 

113 

CD 

CD 

I 

t 

C\J  C  J 

^  1  •.  < 

OJ 

OJ  P 

PJ 

».  J 

:o 

-J- 

1 

1 

r'' 

^  f  *  ^, 

'.D  f" 

- 

CD  r-* 

CD 

'3 

r  T 

CD 

' 

j 

!•: 

d.  X 

(/■) 

P 

A 

C/i 

X 

0. 

X 

i 

i 

1 

o  lO 

O  IkN 

cr 

IP.  CD 

IP 

CD 

LP 

CD 

1 

1 

i 

T^  r  "4 

(M  CNJ 

ro 

.t 

> 

IP 

IP 

vO 

• 

i 

j 

CM 

ro  CM 

ro 

PJ 

ro 

PJ 

ro 

ro 

• 

1 

1 

O  CD 

CD  CD 

o 

CD 

CD 

O 

CD 

CD 

j 

O 

rH  'P 

^P  IP 

CM 

CM 

ro 

ro 

i 

>:  CD 

>:  CD 

CD 

O  rP 

CD 

CD 

CD 

CD 

1 

.J- 

(M  CM 

CM 

PJ 

PJ 

ro 

fO 

1 

r:.' 

:r>  O 

C^  C3 

CD 

'-D  r.D 

CD 

r) 

CD 

(D 

i 

X 

X 

IT:  iY 

X 

X 

0. 

X 

1 

t 

CP 

CP 

tP 

p-  CP 

r 

CP 

4“ 

CP 

1 

1 

tH 

CVJ 

tPJ 

ro  ro 

IP 

IP 

1 

! 

i 

CD  ^  ^ 

CM 

1 

CM 

ro  CM 

CM 

ro 

I 

» 

1 

J 

f 

CD  c:d 

CD  CD 

c: 

CD  CD 

CD 

o 

o 

i 

-P  o 

.P  vH 

•> 

PJ 

PJ 

PJ 

ro 

i 

>:  CD 

D 

rjD 

CD  CD 

CD 

ro 

CD 

CI5 

f 

ro 

CM  CM 

P'  .P 

PJ 

.r  CM 

PJ 

ro 

rO' 

CM 

1 

c? 

CD  C  D 

^  D  CD 

CD 

CD  CD 

CD 

o 

C3 

CD 

i 

X 

yi 

X  X 

X 

X  0, 

X 

CO 

0, 

X 

w 

t 

lY 

1 

, 

:2 

ro 

CC  P) 

CO  ro 

CO 

ro  tc- 

ro 

p' 

p) 

cC 

X 

r-r  CM 

CM 

fo  ;o 

U“. 

IP 

ro 

1 

X 

i 

tr  i 

; 

^4 

1 

ur 

i 

! 

lO 

. 

CL 

VH 

<t 

i 

X 

CD 

■♦  tP 

p;  pr 

fO 

ro 

M 

> 

CD 

C3  CD 

O 

r:;  CD 

CD 

CD 

CD 

‘■-t 

IP 

>r 

o 

'..D 

C) 

nP 

rH  iO 

CM 

CM 

-rr 

?'■; 

O 

PJ 

o 

DD 

1”  C*I 

. "D 

CD  •  3 

•JD 

CVJ 

t-D 

o 

CO 

iX 

<t  • 

C>J 

f'-^  CM 

yP 

CM 

.:r*  PJ 

tH 

ro 

ro 

H 

cn 

(/) 

[ 

C3 

CD  CD 

ro  CD 

ro 

CD  C  D 

CD 

CD 

CD 

o 

1-4 

on 

X 

fL  l.< 

X  0. 

X 

X  i.\. 

O') 

X 

a 

X 

o 

on 

'cX 

lY : 

H- 

4*4 

iij 

iij 

O) 

o 

i 

rn  1 

■' 

\- 

:i: 

tX 

1 

! 

rj 

err 

o 

C^J 

N.  CM 

7 

2 

?s. 

PJ  Pv. 

PJ 

X 

PJ 

p- 

0. 

on 

CM 

CM 

f/';  n 

^  f* 

!> ;' 

IP 

LP 

7' 

CD 

to 

C5 

14 

:?r: 

KH 

CD 

OvT 

(O 

rp 

on 

5 

CD 

"X 

:d 

'.ci 

cr: 

U. 

4~-l 

o 

CD 

lO 

C.) 

CD 

r.D 

CD 

CD 

o  1 

o 

C-D 

fO 

Dj 

X 

CD 

CD 

CD 

O  j 

c:d 

ro 

CD  -rH 

rP  PJ 

to 

PJ 

•o 

-J 

14 

X 

CD 

'ID 

CD 

1 

cY 

-'i' 

r) 

to  r-.D 

CD  CD 

(.  > 

f‘D 

lo 

ro 

•jJ 

ro 

O 

''■> 

CD  [ 

o 

r.D 

V  1 

(\J 

T-^  Pt 

PJ 

P  1 

PJ 

»P 

K- 

4 

• 

• 

• 

li. 

o 

:•■;  CD 

c-r 

t.D  -DD 

ID 

3 

C3 

••  D 

t4 

»'4 

1-4 

(O 

M' 

JP 

vH  i 

rr> 

CVj  (M 

-t  ^  1 

-.-r 

-t  PJ 

**  * 

:0 

.'O 

OO 

vn 

,  %  / 

;o 

r  1 

Ov 

IP  i 

»*•' 

C) 

<D  «;3 

f  .)  r,D 

CD 

C“J  O 

•-) 

'D 

CD 

•;.D 

:i: 

'•t 

^  ’ 

CO 

tJ 

t\J 

1 

,  \  \ 

(/) 

-  X 

?:l 

X  0, 

on 

>:  n. 

X 

X 

CO 

a. 

rr^ 

f- 

r/) 

:o 

Li. 

1 

1 

»-< 

{J 

X 

..r 

I 

<;■% 

:d 

o 

I'D 

</) 

• 

CD 

i’/ 

CD 

n 

! 

III 

-J- 

V- 

<  > 

r  -r-i 

■  0  .  r 

\.Z  'T- ! 

*n 

V  {  .  D 

^  i 

<0 

-.4 

•0 

-r  1 

!«. 

1'. 

:d 

1 

'2L 

■rH  ^J 

CVJ 

r«; 

-i' 

^•v 

IP 

u> 

cO 

O 

O 

CD 

j 

li,.' 

(.D 

r*-' 

o 

1 

■TD 

P 

/s/ 

(v: 

.  t 

<  I 

UJ 

O 

V.J 

IJ 

ij 

tvr 

•  1 

Li. 

C5 

n. 

(0 

iVi 

IrJ 

1 

ijJ 

C> 

T 

0. 

1 

0' 

CD 

>-4 

T':; 

:d 

0. 

1 

j 

ID 

I 


i 

i 


i 


\ 


I 

I 


1 


i 


I 


i 


I 

I 

i 


i 

i 

I 

i 

I 

1 

I 

j 


I 

i 

I 


t 

i 

I 


I 


I 

I 

i 


a» 

rH 

9^ 


CO 

u 

Cj 


-p 

-p 

p 

o 

pL, 

o 


Lf^ 

< 

bO 

•P 


h-<  U‘ 

0 

0  0 

^  >- 

i 

▼H 

m! 

. 

> 

: 

i 

C>0  UJ 
(y.  -j 

I 

1 

j 

M  CO 

1 

1 

1 

1 

i  ■ 

-j 

CM 

CD 

CO  0 

<r  <1: 

N- 

S. 

liJ  > 

(T^ 

ro 

CO  CO 

>-  <t 

’fH 

tH 

0  • 

l-H 

1 

H-  ‘ 

0 

0 

0 

C3 

2: 

0 

0 

0 

;xj  U. 

cz 

0 

0 

CD 

H-  h- 

CD 

CD 

0 

0 

lU  <C 

• 

• 

'  • 

'  • 

or  cy 

'tH 

tH 

'T-t 

▼H 

a 

0 

CD 

0 

0 

Q  ' 

0 

CD 

0 

CD 

v~ 

0 

a 

CD 

CD 

<C  (/) 

10 

0 

CD 

CD 

0 

« 

• 

• 

re  0 

1 

: 

0 

C3 

0 

i  TT 

1 

CD 

C-D 

j 

CD 

CD 

i  0 

! 

CD 

0 

0 

CD 

: 

h- 

.-T 

cO 

I  .  <c 

(/) 

H 

VH 

!  i 


ce ! 

0 

CD 

0 

CD 

UJ  !  t-^ 

CD 

0 

W 

CM 

! 

vO 

ro 

MD 

0 

:  i  N 

CM 

1  : 

1 

ro 

CD 

V 

0 

(D 

to 

tH 

M  j  CO 

! 

0 

X 

-J  CO 

.0 

CD 

CD 

CD 

,  re  1  vH 

: 

.0 

0 

c  0 

i  • 

:  ♦ 

,  » 

.  • 

UJ  t 

ijj 

CO  ,0 

1 

X  CD 

0 

-t 

ce 

>z 

1 

1 

i 

i 

kO 

i:J 

ar 

_«H 

1 

KH  ;  CO 

Cl. 

0 

0 

UJ  1 

tH 

CM 

fo 

tH 

I 

u. 

X 

1 

CD 

0 

CD 

CD 

UJ 

.■V 

r.'j  \ 

X 

X 

X 

X 

X  i 

fH 

UJ 

i 

1 

1 

y-  ‘ 

; 

0. 

1 

ij 

;  I 

0 

J 

ce  >“ 

1 

U.  ! 

UJ 

}JU 

ct  <£ 

1 

0  ! 

ioj 

J- 

1 

-J 

>  2: 

• 

j 

CD 

0 

hH 

i.O 

» 

j 

CO 

X 

X 

3 

<t 

1 

j 

v- 

CJ 

tH 

hi 

1 

U- 

lu 

UJ 

0 

ce 

hi  ; 

re 

ul  : 

0 

0 

re 

<:( 

^  J  , 

y 

TT 

ui 

2: 

X 

Z> 

<0 

ZD 

J-- 

0 

...i 

0 

re 

re  = 

V.o 

CO 

M  lU 

KH 

X 

k-l 

cu  • 

UJ 

UJ 

V 

<r 

:c  yZ 

1  .) 

vO 

r.'i 

«-'t 

'trl 

t.fj 

» >'t 

•y) 

r-  ^ 

UJ  <s 

UJ 

M 

lij 

re 

0  , 

>*- 

>:  , 

:>  2: 

H- 

C5  , 

3 

! 

kD  OJ 
tH  ! 


ro  o 
kO 


CD  fD  CJ 
CJ  -d' 


iJ  rH  CM  ro 
>  \ 


Fig  A-5(e)  GENLCP  Output  For  Sample  Problem 
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The  reader  should  note  that  very  little  near  new  information  is 
produced  hy  the  GENLCP  program  —  for  the  most  part,  GENLCP  merely 
formats,  reorders,  checks,  and  performs  bookkeeping  operations  in 
preparation  for  entry  to  the  BBCAV2-REPGEW  algorithm. 

The  first  data  deck  for  the  BBCAV2-REPGEK  algorithm  is  prepared 
as  illustrated  in  figure  A-6.  We  first  assign  a  solution  name  in  entry 
1.  The  first,  second,  fourth  and  fifth  fields  of  entry  2  are  omitted 
as  described  on  page  4-26.  The  third  field  in  entry  2  indicates  that 
there  are  four  concave  cost  functions.  The  zero  in  the  sixth  field 
suppresses  printing  of  the  subroutine  calls;  the  1  in  field  No.  7  prints 
a  listing  of  the  primal  iterations  of  each  linear  program;  and  the  1  in 
field  No.  8  prints  the  entire  set  of  LP  solutions.'  Fields  9  and  10  are 
the  standard  specifications  for  the  size  of  the  array  BLIST.  The  1  in 
field  No.  11  prints  the  column  numbers  and  their  corresponding  values 
for  each  node.  The  last  field,  set  to  20,  establishes  the  limit  on  the 
number  of  nodes  that  'vri.ll  be  evaluated  prior  to  termination. 

Entry  3  has  four  fields  which  establish  (l)  a  tolerance  factor 
of  0.005  (i.e.,  the  solution  -vn-ll  be  within  one-half  of  one  percent  of 
the  theoretical  optimum),  (2)  a  program  time  limit  of  90.0  seconds 
prior  to  termination  (the  solution  to  the  sample  problem  actually  used 
only  48  central  processor  seconds),  (3)  that  no  initial  solution 
(basis)  will  be  input,  and  (4)  that  we  wish  to  obtain  a  detailed  out¬ 
put.  The  second  data  deck  for  the  BBCAV2-REPGEN  algorithm  is  prepared 
as  illustrated  in  figure  A-8.  As  discussed  onp.  4-35?  "the  REPGEN  data 
deck  is  very  easy  to  prepare  since  most  cards  are  duplicates  of  the 
GENLCP  data  deck.  After  the  title  card,  the  vehicle  tables  are  inserted 
with  cards  of  type  2  deleted.  The  period  tables  come  next  using  only 
the  header  cards  and  cards  of  type  1.  Note  that  the  period  designators 
have  been  inserted  on  all  cards  of  type  1  in  columns  11  and  12.  The 
ENDTABLE  card  in  entry  24  ends  the  data  deck. 

VJhen  the  BBCAV2  program  in  the  BBCAV 2- REPGEN  packet  is  loaded  and 
processed,  the  printed  output  gives  complete  information  vis-a-vis  the 
optimal  solution  as  well  as  all  intermediate  nodal  solutions.  The 
printout  is  long  and  involved  and  is  in  a  coded  format.  The  REPGEN 
program  in  the  BBCAV2- REPGEN  packet  will  decode  the  BBCAV2  output  and 
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Fig.  A-6  The  Sample  Problem  Data  Deck  For  the  BBCAV2  Program 


present  all  essential  information,  hence,  v/e  neither  present  nor  discuss 
the  BBCAV2  output.  After  some  experience  with  these  programs,  the  user 
may  suppress  all  intermediate  information  if  he  so  desires.  We  do 
present  here  a  branching  tree  (like  that  of  Fig.  2-2b)  to  lend 
further  clarity  to  the  intermediate  solution. 
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The  "tree"  of  intermediate  solutions  (see  Fig.  A-7'  is  illus¬ 
trative  of  the  iteration  process  of  the  branch-and-bound  algorithm. 

Node  #1  represents  a  complete  linearization  of  the  non-linear  problem 
and  establishes  the  first  reference  solution,  0(x^)  =  3.03  million 
dollars.  A  lower  bound  to  all  solutions,  f (x"^) ,  is  also  determined 
and  equals  2.72  million  dollars.  The  branching  rule  is  then  applied 
and  variable  #1  is  selected,  at  the  branching  value  of  XOl  :=  10. 

The  linear  programs  associated  with  node  #'s  2  and  3  are  then  evaluated. 
Node  §2  yields  a  better  reference  solution  of  0(x^)  =  2.82.  Node 

#3  is  found  to  contain  no  better  solution  than  0(x^)  because 

32 

f(x  )  >0(x  ),  hence  node  #3  need  no  longer  be  considered.  The  next 
best  branching  variable  is  #4,  at  a  value  of  X04  =  12.  The  linear 
solutions  to  nodes  4  and  5  yield  identical  results^  indicating  a  solu- 
tion  at  the  bound.  The  process  terminates  here  because  the  smallest 
lower  bound  is  within  one-half  of  one  percent  of  the  current  reference 
solution.  Detailed  information  regarding  the  optimal  (and  final) 
solution  is  obtained  through  the  REPGEN  program. 

REPGEN  in  the  BBCAV2-EEPGEN  algorithm  is  then  processed  resulting 
in  the  output  of  figure  A-9,  parts  (a)  and  (b) .  Part  (a)  contains  an 
overall  COST  INFORIVIATION  summary  together  with  a  breakdown  of  the  number 
of  PURCHASED  RESOURCES  (vehicles) ,  Part  (b)  illustrates  a  breakdown  of 
the  STORED  (mothballed)  RESOURCES  and  the  TOTAL  RESOURCES  USED  by  period. 
From  these  tabulated  results^  we  have  constructed  a  bar  chart  in  figure 
A-10  to  better  illustrate  the  optimal  solution.  In  this  display,  the 
results  of  a  cost  minimization  over  time  are  illustrated  by  a  bar  for 
each  year  and  each  vehicle.  The  height  of  the  bar  is  a  measure  of  how 
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Figure  A-7  A  Branching  Tree  for  the  Sample  Problem 
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many  vehicles  were  selected  —  the  color  black  indicates  vehicles  exist¬ 
ing  or  retained  —  a  dotted  section  indicates  vehicles  purchased  —  a 
blank  section  indicates  vehicles  stored  (mothballed)  for  later  use. 

One  can  observe  the  trend  toward  a  fleet  of  only  medium  trucks  and  trail¬ 
ers  (perhaps  because  of  the  high  labor  costs  of  operating  so  many  light 
trucks).  The  MEDIUM*  trucks  are  not  chosen  for  1972  because  of  the  high 
purchase  cost  for  early  delivery.  The  slack  is  taken  up  by  a  large 
purchase  of  trailers  in  this  first  year;  the  trailers  are  needed  in  the 
later  years  anyway.  Storage  of  a  few  trailers  is  indicated  in  1973, 
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(perhaps  a  surprising  result  but,  under  the  circumstances,  a  reason¬ 
able  one  since  buying  medium  trucks  or  retaining  a  larger  number  of 
small  trucks  for  this  sub-period  are  very  costly  alternatives).  Finally, 
one  can  observe  the  relatively  high  start-up  costs  due  to  the  purchase 
of  the  entire  trailer  fleet  in  1972,  and  then  most  of  the  medium 
truck  fleet  in  1973.  Nevertheless,  these  high  start-up  costs  yield 
the  least  total  cost  over  the  planning  period. 

The  COST  INFORMATION  summary  indicates  a  total  real  cost 
(that  which  must  be  allocated)  of  3.17  million  dollars.  This  differs 
from  the  branch-and-bound  solution  value  of  2.82  million  dollars  by 
the  truncation  value;  i.e.,  it  is  deemed  proper  to  include  the 
truncation  credit  for  purposes  of  optimization,  but  this  dollar  credit 
(unlike  salvage)  is  not  considered  to  be  available  for  other  purposes. 
From  the  procurement  cost  summary,  it  would  appear  that  none  of  the 
procurement  cost  constraints  were  binding;  however,  the  reader  should 
recall  from  p.  4-36  that  these  data  were  calculated  from  the  linear 
procurement  estimates  and,  upon  close  inspection  of  the  BBCAV2  print¬ 
out,  on-g  could  observe  a  binding  cost  constraint  in  the  second  period. 

As  previously  intimated  on  page  A-7,  this  relatively  poor  correlation 
between  linear  estimate  and  actual  value  (in  this  case  in  the  medium 
vehicles)  can  give  erroneous  results.*  For  cases  in  which  the  dis¬ 
crepancy  is  excessively  large  (judged  not  so  in  this  sample  problem) 
the  programs  should  be  reprocessed  with  a  better  linear  estimate. 

The  restriction  of  available  funds  in  period  two  is  probably  the  cause 
of  the  retention  of  the  light  vehicles,  in  lieu  of  the  purchase  of 
the  full  complement  of  medium  vehicles  for  that  period.  Finally,  one 
should  observe  that  the  RESOURCE  summaries  in  general  contain  non-integer 

values  -  a  consequence  of  the  continuum  of  solutions  to  linear 

programming  problems.  It  is  incumbent  upon  the  user  to  provide  a 

physically  meaningful  interpretation  to  such  results  -  as  we  have 

done  for  this  sample  problem  in  figure  A-10. 


*  The  difficulties  introduced  here  due  to  a  poor  linear  estimate  can 
be  avoided  in  the  future  ^  employing  a  recently  developed  modification 
to  the  current  algorithm. ^ 
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MATRIX  GENERATOR  ROUTINE  DESCRIPTIONS 

GENLCP  -  reads  and  analyzes  input  data,  creates  column  names  and 
row  names,  determines  non-zero  values  of  the  matrix  of  coefficients, 
creates  the  MPS36O  file,  and  outputs  the  documentation  listing. 

YRCOST  (j)  "  has  parameter  J,  which  is  vehicle  number,  and  deter¬ 
mines  for  this  vehicle  all  cost  information  (see  Chapter  4  for  detailed 
description). 

YINTERP  (NVR,  NTR,  NRY)  -  determines  for  all  tasks  (NTR)  which  of 
the  NVR  vehicles  will  not  have  been  developed  by  the  year  NYR,  and  elimin¬ 
ates  from  those  tasks  all  alternatives  in  which  the  "non-existent"  vehicles 
a, re  accomplishing  something  which  could  be  done  by  an  existing  vehicle. 

MATFILL  (N,  M)  -  creates  from  the  MPS36O  file  the  file  for  BBCAV2 
which  is  an  N-row  by  M-column  matrix  of  coefficients,  and  also  creates 
the  reference  list  for  matching  column  numbers  and  names. 

MAIN  PROGRAM  ROUTINE  DESCRIPTIONS 

BBCAV2  -  is  the  programmed  implementation  of  the  main  logic  struc¬ 
ture  of  the  branch  and  bound  algorithm;  selects  node  from  branching  tree, 
branches  on  it  defining  two  new  nodes,  and  determines  when  optimality 
has  been  achieved. 

BOXl  -  defines  the  initial  node  of  the  branching  tree  and  establishes 
the  problem  framework  in  which  the  main  program  will  iterate. 

INITA  (NCF,  N,  M)  -  reads  the  matrix  file  from  tape  and  stores 
it  on  disk  in  the  form  acceptable  to  the  LP;  the  parameters  N  and  M  define 
the  number  of  columns  and  rows  in  the  matrix,  and  the  parameter  NCF  is 
the  number  of  columns  having  nonlinear  cost  functions. 
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GETPIII  (KFX,  XPPII,  HII,  SUT^PHI)  -  evaluates  the  nonlinear  cost 
functions  (see  Chapter  4  for  a  detailed  description). 

TABOUT  (IRT)  -  outputs  the  general  information  concerning  the 
node  being  evaluated,  and  if  IRT  =  1,  also  prints  the  nodes  on  the  branch¬ 
ing  list. 

READ IN  -  transfers  the  input  basis  to  the  file  which  the  LP 
uses  for  storing  its  current  basis  on. 

NXBRN  (XT,  SIGMAT,  NXB)  -  determines  the  best  branching  candidate, 
NXB,  given  the  present  X-vector,  XT,  and  the  node  information,  SIGMAT. 

TIMEC  -  determines  how  long  the  program  has  been  running,  prints 
the  time  or  interrupts  depending  on  whether  or  not  this  time  is  less 
than  the  input  maximum. 

GETASQ,  (NOES,  ELM,  JSQ)  -  orders  the  elements  of  the  vector  ELM, 
of  length  NOES,  in  ascending  sequence,  keeping  the  index  variable,  JSQ, 
associated  with  the  vector  in  the  corresponding  sequence. 

GETC  (KCX,  BLT,  ULT,  CT)  -  determines  the  slope  of  a  straight 
line  on  the  cost  function  from  the  lower  bound,  BLT,  to  the  upper  bound, 
ULT,  for  the  KCX  variable  and  stores  this  in  the  cost  vector,  CT. 

PRESET  -  initializes  core  storage  at  beginning  of  the  algorithm. 

SET  (TI4MAX)  -  initializes  the  time  limit  which  is  used  by  the 
routine  TIMEC  by  adding  the  limit,  TMI'IAX,  to  the  clock  time. 

PARAMS  -  rea,ds  and  stores  the  information  on  the  parameter  and 
bound  cards  of  the  input  deck. 
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tP  is  the  linear  programming  system  driving  subroutine  which  directs 
the  overall  solution  stages  through; 

SETUP  -  which  initializes  all  data  for  the  A  matrix  files  and  the 
solution  bookkeeping. 

MAPIW  -  which  introduces  any  prior  solution  known  for  the  problem. 

INVERT  -  which  solves  the  problem  equations  to  generate  the  current 
solution  represented  by  the  basis  inverse  and  the.  values 
of  the  basic  and  key  variables  in  the  current  solution, 
or  an  artificial  solution. 

PRIMAL  -  which  solves  the  linear  programming  problem. 

MAPOUT  -  which  stores  the  solution  fovind  and  loads  it  into  the 
output  vectors  IX  and  X. 

LP  begins  with  the  overall  common  definitions  for  the  LP  system, 
and  must  be  loaded  first  since  the  common  statements  /A/,  /b/,  /CORE/, 
/ROWTYP/ ,  /IXX/ ,  /XX/ ,  /names/  overwrite  the  smaller  dimensions  specified 
in  later  subroutines  which  can  remain  unchanged  regardless  of  problem 
size. 

AJ  contains  the  operating  core  columns  and  the  complete  basis 
inverse  B  at  AJ(i/RG)  =  b(IORG),  see  below. 

The  first  stage  is  to  specify  the  A  matrix  files  lAl  -  used  for  the 
A  matrix  less  GUB  rov7s,  INPUT  -  used  as  the  source  of  the  unpacked  A 
matrix  by  column^  witten  in  binary,  one  column  per  record^ and  IMAP  -  used 
by  MAPOUT,  MAPIN  and  IKMAP  as  a  file  for  the  BCD  MAP  cards  defining  the 
basis,  initial  and/or  final. 

Files  lAl  and  IA2  are  specified  as  blocked.  Meaning  that  .  each 
physical  disc  write  or  read  is  of  as  many  columns  as  the  buffer  sizes 
for  lAl  and  IA2  will  allow,  and  not  just  one  column,  as  actual  written 
in  FORTRAN.  This  considerably  reduces  the  disc  access  time  denoted 
as  PP  time  on  the  CDC  6400. 

NWAJ,  the  nmber  of  words  in  AJ  is  used  to  compute  the  number  of 
columns  available  in  core. 

The  second  step  is  to  initialize  the  LP  calling  parameters  with 
the  LP  calling  arguments.  The  matrix  generator  locates  the  cost  row 
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ICOST  as  the  last  row  MR0V7S  which  is  INPUTM  for  the  linear  program 
common/iNPUT/.  The  right  hand  side  is  JRilS,  placed  as  the  last  colunm 
NCOIjS  which  is  INPUTN  for  the  common/lKPUT/ .  The  number  of  bounds 
NBDS  is  the  number  of  changes  NCHGS,  the  calling  parameter,  and  the 
first  NCHGS  columns  are  bounded  by  BBCAV  convention.  The  values  of  the 
bounds  are  in  UBS. 

The  second  stage  ends  with  specification  of  LP  system  print  and 
termination  controls . 

LP  Cut-Off 

STATUS  terminates  the  program  if  any  linear  program  takes  longer 
than  TMAX  seconds  or  K5  iterations  ITRN.  The  termination  causes  a 
MAPOUT  allowing  restart  of  the  linear  programming  system  but  not 
necessarily  BBCAV. 

Diagnostic  Snapshots 

A  snapshot  of  the  current  solution  and  column  format  can  be  had 
from  XCHECK  by  setting  K4  to 

k4  =  1000  X  N1  +  N2 

giving  a  snapshot  of  iterations  N1  through  N2  inclusively.  K4  =  0 
suppresses  XCHECK.  The  format  is  explained  in  the  XCHECK  subroutine 
writeup . 

Print  Control 

This  is  achieved  by  K3. 

K3  =  0  prints  everything 

K3  =  1  prints  no  LP  system  output  except  error  messages. 

Other  values  of  K3  give  a  selective  print  of  all  or  some  of  the 
respective  outputs  according  to  the  prime  factors  of  K3. 

Specifically  K3  should  be  a  product  of  primes  and 

K3  =  2x3x5x7xllxl3 

gives  all  print  options.  To  obtain  selective  control: 

1.  To  print  the  MAPIN  cards  as  read  K3  has  factor  3» 

2.  Inversion  diagnostic  data  from  INVERT  on  infeasibilities  of 
the  current  solution  as  found,  the  columns  rejected  during 
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an  inversion  or  reinversion  and  the  final  infeasibility  if 
any,  K3  has  factor  13. 

3.  MESSG  prints  linear  programming  system  verb  entry  names  and 
entry  times  and  serveral  messages  if  K3  has  factor  7- 

4.  STATUS  prints  the  status  of  the  PRIMAL  iterations  at 
beginning  and  end  of  K3  has  factor  11. 

5.  MAPOUT  places  a  basis  inverse  B,  IBASIS,  KEYS  and  BETA 
representing  Restart  data  sufficiant  to  avoid  an  initial 
invert  on  file  INPUT  if  K3  has  factor  2. 

6.  MAPOUT  prints  the  solution  status  in  packed  format  when 
called  if  K3  has  factor  ^ . 

Thus  to  obtain  printouts  of  inversion  diagnostics,  a  mapout,  verb 
entry  times  and  status  data  set  K3  =  5  X  7  X  11  X  13* 

The  third  stage  of  the  program  IP  calls  the  system  verbs  listed 
earlier. 

2 

The  basis  inverse  is  at  B(I^RG)  vtere  I0RG  is  M  words  down  from 
the  end  of  AJ,  i.e.  NWAJ.  The  remaining  space  in  AJ  is  allocated  to 
columns  of  which  NCRl^IAX  can  be  fitted  in.  There  must  be  at  least  5 
columns  slots  available,  three  for  CHECK  to  retain  col-umns  and  two 
for  work  space.  Fifty  columns  are  recommended 

Finally  MAPOUT  moves  •  the  current  variable  state  to  file  IMAP, 
the  solution  to  INPUT,  the  packed  variable  values  to  IXX  and  XX.  IXX 
has  the  indices  in  ascending  order  of  non-zero  variables,  and  XX  has 
the  corresponding  values.  There  will  be  between  INPUTM  and  INPUTM  + 
NEDS  non-zero  values  followed  by  zeros. 

Variable  Lengths 

In  /IXX/,  /XX/  IXX,  XX  should  be  set  to  100  or  INPUTM  +  NBDS  if 
larger. 

In  /core/  AJ  should  be  big  enough  to  take  the  basis  inverse 
(INPUTM+1-L)2  words  plus  10  to  100  columns  at  (INPUTM+1-L)  words  each 
where  L  is  the  number  of  GUB  rows. 

In  /ROWTYP/  IROWTP  should  be  100  or  INPUTM+1  of  larger  than  100. 

In  /  names/  name  should  be  ICO  or  INPUTN+l+S  if  larger,  where 
S  ^  INPUTM  is  the  number  of  inequalities  and  free  rov^s. 
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In  /A/  AmiA  should  be  100  or  INPUTM+1  if  larger. 

In  /b/  beta  should  be  100  or  IKPUTM+1  if  larger. 

All  other  commons  are  correctly  sized  in  LP. 

EXISTS 

All  exists  from  primal  are  via  the  subroutine  EXISTS  for  the  purpose 
of  user  parameter  settings. 

SETUP 

This  subroutine  is  the  system  verb  which  has  the  task  of  initiating 
the  LP  system  when  starting  from  scratch. 

SETUP  first  of  all  initializes  all  LP  system  parameters,  then 
examines  the  row  types  constructing  a  logical  or  slack  column  for 
each  nonequality  row  and  writes  these  to  disc  using  calls  to  OUT  of 
10.  An  extra  free  row  is  incorporated  for  the  phase  1  cost  row  and 
the  logical  columns  for  free  rows  are  marked  basic. 

SETUP  then  reads  the  A  matrix  columns  from  the  binary  IfJPUT 

file  and  writes  then  out  to  disc  using  calls  to  OUT  of  10.  For  each 

column  the  NAME  vector  is  set  to  record  the  column  type  (free/null), 
the  column  GUB  packet  number  or  zero  and  the  column  bound  index  or 
zero.  The  right  hand  side  vector  is  recorded  in  core  in  RHS. 

Finally,  SETUP  rewrites  IBASIS  and  the  RHS  vector  to  place  the  GUB 
row  elements  at  the  end.  The  count  of  GUB  rows  is  recorded  in  L  and  the 

actual  row  count  is  reduced  by  L.  The  cost  row  marker  ICOST  Js  reset 

to  its  new  position  in  the  rearranged  rows. 
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This  subroutine  handles  all  disc  to  core  transactions  and  keeps 
track  of  column  booldceeping. 

OUT  writes  two  files  of  columns  of  the  A  matrix  writing  one  column 
in  each  file  per  call.  The  first  file  lAl  contains  columns  less  their 
GUB  elements.  The  second  file  IA2  contains  columns  less  their  GUB 
elements  and  any  zero  elements  and  is  written  in  a  packed  format. 

IN  reads  file  lAl  cyclically  up  to  NT  times,,  in  search  of  a 
particular  column  rewinding  when  appropriate.  It  is  normally  accessed 
for  sequential  columns  by  CHECK  but  INVERT  uses  it  to  locate  basis,  at- 
bound  and  key  columns  marked  in  the  NAME  vector. 

INPCKD  reads  file  IA2  cyclically  up  to  NT  times  in  search  of  a 
column  rewinding  when  appropriate .  It  is  only  accessed  in  random  for¬ 
ward  increments  searching  for  key  columns  and  thus  uses  a  packed  file. 

After  NT  reads,  sufficient  to  locate  any  column,  both  entries  cause 
an  error  message  and  dump. 

Once  IN  or  INPCKD  have’  located  the  required  column  and  read  it  to 
a  slot  in  Aj(  ),  the  column  index  is  loaded  to  the  corresponding 
position  in  JA,  its  reject  memory  in  JAREJ  is  cleared  and  its  mnemonic 
(unused)  is  placed  in  JAK. 

Thus  it  is  not  possible  to  read  a  column  into  core  without  adjusting 
the  bookkeeping  of  what  is  in  core. 
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MAPIN 


This  .subrout/ .i.nc  is  "the  sysl/eni  verb  v^hich  sets  the  bookkeeping  of 
the  GOlAMin  status  and  allov/s  a  restart  from  a  previous  status.  It  is 
designee]  to  read  a  file  IMAP  generated  by  MAl^OUT  and  loaded  by  IKMAP  to 
file  IMAP. 

MAPIR  reads  settings  of  NULL,  BASIC,  KEY  and  ATBRD  designated  at 
random  one  type  per  card  up  to  columns  per  card  for  each  typei  •  Each 
type  seta  the  column  status  marker  in  NAME  appropriately. 

Restarts 

MAPOUT  writes  the  LP  system  status  onto  the  end  of  the  INPUT  tape 
file  V7hen  MAPOUT  is  call.ed,  and  provides  an  INVERSE  card  for  MAPIN  use. 
The  IIWERSE  card  causes  IMAPIK  to  check  for  an  inverse  plus  bookkeeping 
data  and  the  solution  status  on  the  INPUT  tape,  and  read  it  if  present. 
IN-lAP 

Is  the  entry  designed  to  read  the  input  card  stream  for  liAPIN  cards 
and  load  them  onto  file  IMAP.  It  is  terminated  either  by  an  end  of  file 
or  and  END  card. 

Manual  preparation  of  MAP  cards  is  possible  and  extensive  checks 
in  MAJPIN  will  detect  and  avoid  most  errors. 
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INVERT 


This  is  the  system  verb  which  inverts  or  reinverts  the  current 
basis  as  defined  in  NAME  records  and  completes  the  basis  with  artificials. 

Wlien  INVERT  is  called,  an  inversion  occurs  only  if  the  current 
iteration  exceeds  ITNINV.  Wlien  it  does  ITNINV  is  increased  by  INVF,  and 
an  "INVERT"  message  is  printed. 

INVERT  first  clears  the  basis  records  and  the  GUB  packet  basis 
column  count,  sets  up  a  unit  basis  and  for  each  GUB  row  without  a  key 
chooses  the  first  valid  GUB  packet  column  as  key.  It  then  cycles  the 
coliimn  status  records  in  NAME  until  u.t  locates  a  basic,  key  or  at-bound 
column,  which  is  retrieved  by  IN.  Key  and  at-bound  columns  are  accum- 
alated  in  GAMl^A  scaled  by  their  packet  righthand  sides  (if  keys)  or 
their  bounds.  If  basic  columns  are  in  a  GUB  packet,  the  key  is  located 
by  IHPCKD,  subtracted  from  the  column  and  the  result  transformed  and 
pivoted  into  the  basis  in  a  row  determined  by  PIVOT. 

VJhen  all  NAME  records  have  been  checked  and  the  columns  incorporated 
or  rejected  by  PIVOT,  the  basis  record  is  completed  with  logicals  or  if 
necessary  with  artificials.  Tlie  artificials  are  then  constructed  in 
DELTA  transformed  and  pivoted  into  the  basis.  Finally,  FEASCH  is 
called  to  construct  and  check  the  solution  feasibility. 

NB.  The  MAPIN  used  can  be  partial,  complete,  redvindant  or  nonsense. 
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FEAPCJI  ;iG  cal].ed  by  II'JVl.^RT  to  comp'atc  p  -  B'S  Given  Y  in  GAMI-IA  find 
in  B.  The  rcsiiltin{^  P  elements  ;in  BETA  are  checked  for  feasibility 
and.  the  basis  j.s  adjusted  if  infeasiole  untj.l  the  resulti.nc  BETA  is 
feasible  and  the  phase  IPIIASE  is  1  or  2. 

The  method  is  to  cycle  each  element  of  BETA  from.  1  to  M,  compute 
it,  clieck  if  it  exceeds  a  bound  then  check  if  it  is  positive.  If  it 
exceeds  a  bound,  the  basic  coluiiin  is  set  "at-bound,  and  ohe  bound  is 
subtracted  fro.m  that  PETA(l)  which  then  beco.mes  necative  and  j.nfeasibi.e . 
If  it  is  negative  i.e.,  infeasible,  its  sign  is  reversed  and  the  colutrn 
is  repla.ced  by  its  negative  artlflcal'X-,  to  pick  up  the  infeasibility 
directly,  (the  artificial  need  not  be  transformed)  and  pivoted  into  the 
basis  in  place  of  the  old  basic  coluj.m.  Finally,  if  GUB  rows  are  piesenc 
the  last  L  entri.es  in  BETA  ai’e  filled  v/ith  the  values  of  the  key 
varia-bles . 

Feasibility  of  the  keys  is  maintained  by  calling  KEYCH  to  move  the 
infeasible  key  (essential  packet)  to  a  basic  position  in  a  non  GUB  row 
and  processing  it  as  above  as  an  infeasible  variabi.e. 

If  any  infeasibilities  have  been  encountered,  or  the  resulting 
Phase  1  cost  is  larger  than  CTOB  Phase  1  initiates  otherwise  Phase  2. 


*  The  negative  artificial  of  a  column  A.  is  -A.  +  e  is  the  mth 

column  of  the  identity  matrix.  The  negative  arti^ic.i.  aT  of  an  artificial 

e  4-  e  •  is  -e.  +  e  . 

1  ni  1  m 


PRIMAL 

This  subroutine  is  the  main  LP  verb  which  solves  the  LP  problem 
phases  1  and  2. 

PRIMAL  notes  its  entry  and  time  using  MESSG,  then  picks  up  the  cost 
row  for  its  current  phase  1  or  2,  the  appropriate  tt  row  in  the  inverse 
and  sets  the  phase  1  row  to  free  in  phase  1  or  equality  in  phase  2. 

The  basic  solution  cycle  is  counted  by  ITRN.  If  ITRN  exceeds  K5 
or  if  CP  time  exceeds  TMAX  a  MAPOUT  is  called  by  CTATUS  followed  by 
EXIT . 

The  solution  cycle  proceeds  with  COLUMN  to  find  an  in— core  column 
JCOL.  If  JCOL  =  0  no  column  is  found  and  the  phase  terminates.  If  the 
cost  is  zero  in  phase  1  this  is  the  feasible  solution  termination,  if 
phase  2  this  is  the  optimal  solution,  if  non-zero  in  phase  1  there  is 
no  feasible  solution. 

Next  ROW  is  called  for  a  pivotal  row  IROW.  If  IROW  =  0  no  row  is 
found  and  the  problem  is  unbounded. 

Next  the  pivotal  element  is  checked  for  size  and  degeneracy.  If 
it  is  too  small  NREJ  is  indexed.  If  5  tad  columns  have  occurred  an 
INVERT  is  called  to  check  the  inverse.  If  more  than  100  bad  columns 
have  occurred  the  problem  terminates  either  in  phase  2  as  optimal,  or 
with  a  dump.  If  the  pivotal  element  is  okay,  the  cost  change  THETA  * 
DJ(JCOL)  is  checked.  If  this  is  smaller  than  CTOL,  NDEG  is  indexed. 

If  more  than  NDEGLM  degenerate  columns  have  occurred  and  there  are  no 
more  good  columns  the  column  is  accepted.  Otherwise  in  either  case  the 
old  column  is  rejected  and  a  new  column  is  selected  by  COLUMN  ignoring 
the  previous  selections. 

Next  the  step  is  saturated  to  the  bound  on  the  column.  If  it 
exceeds  the  bound  and  the  column  is  not  at  bound,  the  column  is  set 
ATBND.  If  the  column  is  ATBND,  the  column  is  set  free.  In  either  case 
there  is  no  pivot  and  the  solution  is  corrected  for  the  bound  change 
but  there  is  no  basis  change  correction  and  NREJ  =  1  to  suppress 
pricing  in  the  next  iteration. 

If  the  step  is  within  the  bounds,  a  basis  change  will  be  made. 

The  rejected  column  is  located  first  in  the  basis  of  IROW  ^  M,  then  in 
the  keys  of  IROW  >  M.  If  IROW  ^  M  there  is  no  key  change,  the  new 
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column  is  pivoted  in  by  PIVOT  at  IROW.  If  the  new  column  is  AT  BIID  the 
step  is  off  the  bound  and  the  new  coluimn  value  EPSI  is  corv'ected  to  the 
bound  value  less  the  step.  Then  the  new  column  is  made  basjc,  the 
rejected  column  is  made  free ,  and  the  solution  step  made  and  the  new 
basic  column  value  set  to  EPSI, 

If  IROW  >  M  there  is  to  be  a  key  change.  If  the  GUB  packet  is 
essential,  it  has  other  basic  columns  and  the  key  is  changed  for  one 
of  these  using  IfEYCH,  then  IROW  ^  M  and  the  previous  case  follows. 

If  the  GUB  packet  is  not  essential  it  has  no  basic  columns,  so  the 
key  is  changed  to  the  new  column  and  the  old  key  is  dropped.  The  new 
key  value  EPSI  =  THETA  and  a  normal  step  is  made  as  before  without  a 
pivot  and  pricing  in  the  next  iteration  is  suppressed. 

After  every  pivot  the  rejected  columns  are  cleared. 

At  the  end  of  the  iteration  cycle  STATUS  reports  the  solution 
change . 

After  every  row  and  column  selection,  or  at  any  optimality  stage, 
XCHECK  is  called  for  a  debug  which  occurs  if  k4  is  set  >  0.  See  LP  for 
details. 


STATUS 

STATUS  prints  out  the  status  of  Prtmat  ■;+ 
the  headings.  ^  ^^teratxons  every  cycle  under 

phase  .  (iphASE)  -  the  IP  phase  1  or  2 
iter  =  (ITRE)  .  the  IP  iterations  count. 

TBY  =  (TO)  .  the  n«ber  of  itehatlone  with  the  sa..e  set  of  col»,s 

ih  core  +  too  x  masclt,™  number  of  tries 

VAL  objective  =  (BEIA(IC))  .  the  solution  value  of  t. 

°P  the  current  cost 

-  o-ent  eo^t  of  negative  oj.s  an  estimate  of  non 

MS  .  the  current  number  of  artificial  vectors  present 
VALUE  DJ  IN  =  fDTl' tpot j-t,  ^  esent. 

[  J(JCOL))  -  the  value  of  the  PJ  for  tu«  i 
to  enter. 

COL  IN  -  (jp^S)  _  the  internal  nixmber  of  thp  mi 
CODE  =  (H«(JP^),  .  the  status  of  this  coluT 

COL  OUT  =  (JOUP)  .  the  column  rejected. 

C0»  = 

«  -  the  current  n^ber  of  re.inds  of  file  lAl  the  A  matrix  plus 
^^e^n».ber  of  columns  active  in  core,  or  columns  read  on 


J^fote : 


If  JOUT  is  zero,  no  colunn  was  rejected  and  -if.  • 

If  JCOL  is  zero  or  tpow  •  • 

exu  or  ipow  IS  zero,  thesp  a-uo  +r,^ 

markers  and  the  NOTE  ohtn-  as  termination 

PBIMAL-E»,  1  “  -C. 

Wjau  >  m  artificial  code  is  constructed  equal  to  the  10^  x 
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ROW 


This  subroutine  is  called  by  PRItlAL  to  locate  the  pivot  row  IROVJ 
in  the  selected  column  JCOL. 

ROW  first  transforms  the  in-core  column  JCOL  to  the  current  basis 
representation  in  ALPHA,  reconstructing  the  complete  column  Including 
GUB  elements  which  occupy  the  last  L  positions. 

The  row  selection  depends  upon  whether  the  column  is  at-bound  or 
not,  for  if  at  bound  the  column  represents  the  slack  vector  and  the 
step  is  negative.  For  either  case  the  minimum  THETA  is  found  which 

(i)  drives  the  resulting  solution  to  zero  or 

(ii)  drives  the  rejected  column  out  at  bound,  depending  upon  the 
sign  of  the  potential  pivot  element  ALPHA (l). 

These  are  case  2  and  3  for  3.  normal  column  and  cases  3  9-iid  2  for  an 
at  bound  column.  Upon  exit  THETA  is  the  step  in  row  IROW,  core -column 
JCOL^ (JP^S  on  disc)  and  ITYPE  is  2  or  3  for  the  type  of  step. 

If  no  row  is  found  IROW  =  0,  ITYPE  =  1  indicating  an  unbounded 
step  and  THETA  =  1-E35- 
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COLUMN 


This  subroutine  locates  a  potential  column  entry  JCOL  from  those 
in-core,  or  calls  CHECK  to  search  all  or  part  of  the  disc  for  more  col- 
mns  and  uses  these. 

COLUMN  counts  NTRY  selections  with  the  current  coltimns.  If  more 
than  NCRMAX,  or  no  columns  exist  in  core  it  locates  up  to  NCRMAX 
new  columns  with  a  call  to'  DISC.  If  no  colimms  are  found  the  problem 
is  optimal  and  JCOL  =  0  at  exit. 

The  in-core  columns  are  then  priced  out,  unless  no  pivot  has 
occured  (UREJ  or  HDEG  ^  O)  because  of  column  rejection  or  DISC  has  just 
been  called.  PIKEY  is  always  set  to  the  current  key  price  for  the  packet 
recorded  in  JPKTO.  If  a  column  is  in  a  packet,  its  price  is  adjusted  for 
.the  key  price.  All  columns  are  priced  apart  from  rejected  columns. 

The  best  uvirejected  column  is  now  found  by  searching  the  DJ  values. 
At  bound  columns  have  DJ  reversed  as  they  correspond  to  the  slack  col¬ 
umn,  and  the  number  of  negative  DJ's  is  counted  in  NDJS. 

If  no  good  colvunn  is  found,  i.e.  the  best  DJ  is  above  the  DJTOL 
threshold,  DISC  is  called  to  search  for  more  columns  unless  these 
colwnns  are  new, denoted  by  NTRY  =  0  (no  selections  with  these  columns). 

Upon  exit  JCOL  is  the  in-core  location  of  the  best  column  found 
in-core  (or  from  disc)  called  JPOS,  or  JCOL  =  0  denoting  no  column. 

If  JCOL  =  0,  JNCORE  is  reset  to  the  number  of  columns  in  core  (because 
DISC  has  deleted  the  count  of  columns  that  were  there)  in  order  to  try 
to  save  a  disc  read  in  the  next  phase  if  any* 


DISC 


This  subroutine  checks  the  disc  for  more  columns  and  selects  those 
which  are  currently  "not  bad." 

First  DISC  calls  INVERT  to  see  if  the  iteration  coimt  ITRN  has 
exceed  the  next  invert  point  and  inverts  if  necessary. 

DISC  reads  the  columns  in  batches  of  NBCH  columns  serving  1  column/ 
batch.  If  fewer  than  NCRMAX  columns  are  actually  used  these  are  read 
directly  into  core  where  they  stay^  once  and  for  all.  Alternatively  the 
current  file  lAl  position  JNT  is  found  by  INFOS  and  DISC  examines  the 
columns  starting  at  JNT  +  1,  proceeding  cyclically,  changing  batch  every 
NBCH  columns .  If  the  new  packet  number  PKT  is  different  and  nonzero  the 
new  key  is  located  and  read  over  any  uniised  old  key,  or  into  the  next 
vacant  AJ  slot,  by  INPCKD. 

The  column  type  is  found  in  JTYPE  and  null  (o),  basic  (2)  and  key 
(4)  columns  are  skipped.  Free  (l)  and  at-bound  (3)  columns  are  read  by 
IN  to  the  next  location  JORG.  The  new  column  is  priced  out  correcting 
for  its  packet  if  /  0,  and  if  the  new  price  DJREW  is  vrorse  (>)  than 
DJOLD  (the  best  of  the  current  batch)  the  column  is  skipped.  Othervjlse 
this  column  is  preserved  as  lORG  in  the  batch  records  and  the  best 
batch  column  DJ  as  DJOLD. 

Every  NBCH  column,  column  lORG  is  saved  if  it  is  better  than  DJTOL 
and  lORG  is  reset  to  the  next  vacant  column. 

DISC  ivill  work  if  the  packets  are  disjoint,  (separated  by  zero 
packet  columns),  and  also  if  the  packets  are  mixed  up,  (alternate  columns 
in  different  packets)  but  with  much  loss  of  efficiency  due  to  multiple 
key  searches  and  rewinds  of  file  IA2. 

DISC  always  pulls  in  the  key  of  each  packet  first  for  each  packet, 
using  the  packed  file  IA2  regardless  of  where  the  key  is  located  in  the 
packet . 
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Subroutine  KEYCH 


Changes  the  key  for  an  essential  GUB  packet,  to  one  of  its  basic 
columns  in  the  packet,  selecting  the  first  one.  The  basis  inverse, 
B,  solution  in  BETA  and  current  column  in  ALPHA  are  corrected  for 
this  rearrangement. 


Subroutine  SETBHD,  SETMB,  SETWM,  SETKEY 

Sets  and  unsets  the  state  of  a  column  J  in  NAME  (j),  to  either  free 
(l),  null  (O),  basic  (2),  at-bound  (3)  or  key  (4)^  respectively. 


Function  DOT ,  .DOTS 

Computes  the  inner  product  x'y  in  either  double  and  single  precision, 
respectively. 


Subroutine  MAPOUT 

Writes  the  states  of  the  null,  basic,  key  and  at-bound  columns  onto 
BCD  cards,  placed  on  file  IMAP,  and  also  places  the  current  inverse  B 
solution  BETA  and  basis  bookkeeping  IBASIS  and  KEY  onto  the  end  of 
input  tape  INPUT  to  allow  instant  RESTART. 


Function  BOUND 

70 

Returns  the  value  of  a  column  bound,  if  bounded,  or  10  if  unbounded, 
or  artificial. 


B-18 


PIVOT 


This  suhroutine  pivots  a  new  column  ALPHA  into  the  basis  inverse  B 
at  row  IR0V7.  If  IROW  is  zero  the  best  pivotal  row  is  found. 

IROW  is  zero  the  basis  is  checked  for  empty  slots  or  slots  containing 
the  column  disc  index  JPOS.  If  the  latter  is  found,  this  row  is  used  as 
IROW  since  this  is  SETUP'S  method  of  fixing  logicals  for  free  rows.  For 
null  basis  entries  PIV  and  IROW  track  the  largest  ALPHA  element  and  its 
row,  and  this  is  used  as  the  pivot  element  unless  it  is  less  than  PIVTOL 
where  upon  the  column  is  dropped  with  IROW  =  0  as  a  marker. 

If  IROW  is  non-zero,  the  pivot  ALPHA  (iROW)  is  checked  against  the 
PIVTOL  for  possible  errors.  If  the  pivot  is  not  unity,  the  inverse  row 
IROW  is  normalized  by  the  pivot.  Then  for  every  non-zero  ALPHA  entry  at 
I,  that  multiple  of  the  inverse  pivot  row  is  subtracted  from  the  Ith 
inverse  row  (skipping  the  pivot  row). 

KEYFND  -  function 

KEYFND  find  the  location  in  core  of  the  key  column  for  the  specified 
packet.  If  none  is  found  in  Core  it  returns  a  value  zero. 

If  the  calling  argument  is  zero  KEYFND  locates  any  key  in  core 
which  has  no  associated  GUB  packet  columns.  If  no  key  is  found  in-core 
it  returns  a  value  zero. 

Otherwise  the  value  of  KEYFND  is  the  column  location  1  to  NCRMAK. 
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ESCAPE 

ESCAPE  causes  termination  with  a  snapshot  of  the  v;orking  core 
followed  by  a  call  to  file  0.  This  will  generate  an  abort  condition 
suitable  to  generate  a  system  dump.  If  it  is  desired  to  do  this,  use: 
DEBUG. 

LGO. 

EXIT. 

DMP  (LP,  escape) 

7 

8 
9 

This  will  dump  the  core  using  the  labelled  system  dump  from  subroutines 
IP  to  ESCAPE,  which  should  be  first  and  last  respectively. 

Consult  the  variable  list  for  a  definition  of  the  global  variables. 
All  calls  to  ESCAPE  are  preceded  by  an  ERRJ?5r  message  of  explanation 
of  the  fault  condition. 


XCHECK 

XCHECK  delivers  a  core  snapshot  if  ITRN  lies  between  Rj,  and  Ng 
where  k4  =  1000  %  +  Ng .  (k4  =  0  suppresses  XCHECK.) 

XCHECK  prints  using  the'  following  format. 

(a)  Col  1  indexes  the  normal  and  GUB  rows  respectively. 

(b)  Col  2  prints  the  basis  IBASIS  and  KEYS  respectively. 

(c)  Col  3  is  the  current  column  representation  ALPHA  of  JCOL. 

(d)  gives  the  pivot  position  IR0¥. 

(e)  Col  4  gives  the  current  basic  and  key  variables  respectively. 

(f)  step  is  THETA  the  proposed  step,  before  bounding. 

(g)  the  column  bound. 

(h)  the  selected  column  disc  index. 

(i)  is  the  list  of  core-column  disc  indices. 

( j )  Col  5-14  is  a  list  of  10  columns  arouiid  the  selected  column  in 

their  current  basis  representation. 

is  a  list  of  the  column  nartie  codes  at  the  XCHECK 

instant. 
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REPORT  GENERATOR  ROUTINE  DESCRIPTIONS 

REPGEN  -  the  main  program  acts  principally  as  a  control  program 
calling  other  routines  to  perform  specific  functions;  determines  if  all 
solutions  have  been  interpretted  and  initializes  storage  for  each  solution. 

SETUP  -  reads  input  deck  and  reference  list  file  into  core  storage. 

INSOLN  -  interprets  the  meaning  of  each  column  in  the  solution 
and  stores  its  value  in  the  appropriate  array (s). 

YRC05T  (j)  -  same  as  in  matrix  generator. 

VALUES  (N,  ISTART,  IEND,  VAL)  -  determines  cost  information 
associated  with  each  "X"  or  "W"  type  column  in  the  solution;  N  is  the 
number  of  the  vehicle  type,  ISTART  is  its  first  year  of  existance,  IEND 
is  its  last  year  of  existance,  and  VAL  is  the  number  of  those  vehicles. 

CINEO  -  this  routine  organizes,  tabulates  and  outputs  the  table  of 
cost  information. 

PINTO  -  this  routine , merely  formats  and  outputs  the  last  three 
tables  of  information;  purchased  resources,  stored  resources,  and  total 
resources  used. 


APPENDIX  C 


^I.OVrCHARTS 


GENLCP . . .  C-2 

BBCAV2 .  C-12 

KEPGEN .  C-82 
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PROGRAM  GENLCP 


6 


PROGRAM  GENLCP  (con't) 


I 


Output 
ordered 
list  of 
vehicles 


Open  MPS36O 
file  and 
write  file 
name 


Create  row 
names  for 
Tiaster  var. 
constraints 


Create  row 
name  for 
consistency 
constraint 


^  Last  ^ 
'"•v^eriod^^.*' 


j  Set  loop  for 
i  period  of 
lisposalj  create 
inh.  fleet  var. 


Need 

••*'<vfor  vehicle  .h" 
Sexist? 


''  Vehicle 
<too  old? 


!  Determine 
icost  of  oper. 
I  over  life 
|:ninus  salva!"';e 


Enter  cost 
in  cost  row, 
"1"  in  vintage  ; 

constraint  i 
I 


Enter  in  each 
materiel  bal. 

: const,  up  to 
that  for  period 
of  disposal, 
percent"  of 
inh.  vehicles 
left  after 
attrition _ 


"period  for 
■'•disposal? 


PROGMM  GENLCP  (conH) 

_ inherited^ 

\period?''' 


Last  ^ 
\  vehicle 


Set  DO  loop 
for  planning 
periods, 
call  YINTERP 

r 

- . ^ 

Set  DO 
loop  for  " 
tasks 


Set  DO  loop  . 
for  alternative', 
create  alt.  ; 


Relection  var.; 


Set  DO 
loop  for 
vehicles 


Vefiv. 
used  in 


''\alt 


Yes 

Determine 
how  many 
are  used 

'' 

. . I3Z  I" 

;  Enter  no. 

I  in  vehicle 
!  balance  rovj 


No Last  'v.. 
■■ ,  vehicle? 


No 


PROGRAM  GENLCP  (con’t) 


I  Determine 
I  percent  of 
;  vehicles  left 
i  after  attrition 
[  in  each  period 
i  up  to  disposal 


Enter  minus  j 
these  percents 
in  materiel 
bal.  consts. 


I 

Determine  j 
operating  ! 
i  cost  minus  ; 
j  salvage  ; 


1 

. J _ 

Enter  "l" 
in  materiel 
balance 
constraint 


*  Enter 
i  cos 

j  obje 
j _  func 

- 1 

this  ! 

t  in  i 
ctive  j 
tion  1 

Enter  approx, 
proG,  cost 

In  procurement 
constraint 

r  Enter  "l"  | 

i  in  master  1 
variable 
constraint 

'  i' 
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SUBROUTINE  YINTERP 


C-10 


SUBEOUTIKE  MATE ILL 


C-11 


PROGEAM  BBCAV2 


C-12 


PROGRAM  BBCAV2  (con’t) 
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suBROurn^  getpiii 


c-i6 


SUBROUTINE  TABOUT 
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SUBROUT  H'lE  KKBRN 


SUBROUTINE  GETASQ, 


RETURN 


SUBROUTINE  GETC 
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Subroutine  LP 


Return 


Subroutine  EXITS 

User  changable  EXITS  program  called  after  all  control  points  in 
PRIMAL. 


Retm-n 


lubroutine  SETUP 


Start 


SETUP  1 


SETUP  2. 


Bookkeeping  of  which 
columns  are  in  core 


ERR0R 


To  indicate  no^ 
column  found 


Yes 


Rewind  file 


MAPIN  1 


Subroutine  MAPIN 
Tvjo  entry  points 

(1)  MAPIN  -  Reads  MAPIN  cards  from  file  IMAP  and  sets  NAME  record 

reads  inverse  from  file  INPUT  to  B. 

(2)  INMAP  -  Loads  file  IMAP  from  input  card  stream. 


MAPIN  4. 


GUB 
)blem 


No 


row  no^s/mapin  card 


NB  row  numbers 
internally  are  not  the 
external  no*s 
user  should  not  use 
this  option  manually, 
MAPONT  -  only 


MAPIK  5 


j-issa 

Rewind 

IMAP 


Write  "end 
card  on 
IMAP  file 


MAPIN  6. 


INMAP  looped 
I-  for  cards 


up  to  1000  MAPIN  cards 
limit  set  here 


"Rewind" 
Rev/ind  H-IAP 


deletes  old 
MAP  data 


yes  * 


yes 


CDC  end  file 
instruction 


N.B.  All  MAPOUr  cards  can  be  generated  manually.  If  they  are 
inconsistant  MAPIW  uses  the  last  setting  of  any  column. 
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INVERT  2 


Transform  col 
to  current 
basis  in  AIPE 


zero  packet 


3 


INVERT  3. 


XX 


INVERT  )) 


Cleax  DELTA 
space 


used  as  artificial  vector 
for  pivoting 


[5  ! 


Subroutine  FEASCH 


FEASCH  1 


This  routine  computes  the  solution  and  checks  feasibility. 


jeffective  RHS 
RHS  +  GAMfiA 


FEASCH2 


FEASCH3 


FEASCH4 


Set  cost 


row 


_ v.— 

Set  TT 
vector 


Subroutine  PRIMAL  PRIM/iL  1. 

PRIMAL  runs  the  2  phase  revised  simplex  algorithm  from  both  phases  and 
exits  via  EXIT. 


PRIMAL  2 


no  feasible  solution  since 
phase  1  cost  not  zero 


NOFEAS 

RETURN 


PRIMAL  5. 


Check  step  is 
within  hound 


Ro 


ITYPE=  1 
JOUT  =  0 


to  hound  step  and  •. 
no  rejected  col  JOUT 


THETA  ^  0 
step  pos 


Yes 


P0S) 


Step  negative 
SETBNI)(-JP0S) 
THETA  =  -BHDJ 


col  JP0S  comes  off  hound 
and  goes  to  zero  with 
this  step 


SETBffi)(jPj25s) 
THETA  =  BNDJ 


col  JPj6s  goes  to  hound 
so  set  hound 


PRIMAL  6. 


Find  JOUT 
rejected  col 
in  basis 


IROW  ^  M 


Pivot  row  is 
non-GUB 


Refind  JOUT 
in  KEYS 


Check  affec^d 
key  is  essenpie 
packet  / 


Inter  change  new  col  for 
old  kjy  and  mark  nesr  JP^S 
•unmar  c  old  JOUT  key 


uppress  pricing 
Normal  step 
epsi  =  theta 
new  key  value 


KEYCH  changes 
JOUT  to  basic 
row  NEW  ROW  =  IROW 


KEYCH  adjusts 
solution  BETA  and 
new  col.  ALPHA 
for  new  key 


Pivot  ALPHA 
into 

at  row  IROW 


UT  not  artificial 
key,  basic  cojints 
C5s,  JOUT  packets 


PRIMAL  7. 


if 

ep, 


2 


epsi  =  theta 
new  col  bounded 
i  =  BKDJ  +  thtta 


Mark  JPjZiS 
basic  and 
I  unmark  JOUT 


col.  coming  off  a  bound 
this  is  new  col  value 


JOUT  goes 
to  a  bound 


if  any  reject 
cipls  clear  reje 
records 


Yes 

Mark  JOUT 

- 

at  bound 

1 

5d 

it 
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PRIMAL  8. 


_  - 

Call  ^PTl 

IPHASE  =  2 

> 

— 

f 

1 

f  Go  to 

"  ) 

end  of  phase  1,  ^PTl 
displays  STATUS 


\  -  -  "V 

Call  0PT2 

_ \ 

^  RETURN  ^ 


end  of  phase  2,  ^PT2 
displays  STATUS 


to  LP  with  solution 


Subroutine  STAyos 


STATUS  prints  BRIMAL  data 


statos  1 


Status 

Data 


Write 

data 


Status 
Data 
+  Note 


STATUS  2 


ERR0R  -  triple  prints  error  messages 


MESSgI  single  print  error  messages  and  print  time  in  seconds  since 
MSSG  [  start  of  ran. 


Subroutine  ROW  ROW  1. 

ROW  computes  current  representation  of  selected  column  JCOL  in  core 
ALPHA  then  finds  step  MAK  THETA  which  preserves  feasibility. 
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ROW  3. 


AT 


End 


(^1  =  1,  ^ 


cycle  all  elements  of  a  for 
complete  problem 


Skip  free 
rows 

[type  (I )  =  3/ 


Step  =  (Pi-d)/jai 
I  Pivot  2^  +zer^ - ^0  _  step 

EROW  =  I  ■ 


Pivot  ^  -zer 


Step  =  Pi/(-oji) 
6  =  min  step 
IROW  =  I 


type  3  rejected 
X  driven  to 
bound 


type  2  rejected 
X  driven  to  xero 


End  I  loop 


Oj'f  bound  step  :}.s 
([tually  negative 

e  =  -0 


^  RETURN  ^ 


at  end 

0  =  THETA-  =  min  step 
ITYPE  =  type  of  step 
a  =  ALPHA  =  transformed  to  col 
of  actual  problem 
IROW  is  pivot  row 


N.B. 


IROW  ^  M  -=^  pivot  non-GUB  row 
>  pivot  on  GUB  row 
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COLUMN  1. 


Subroutine  COLUMN 
COLUMN  selects  a  column  JCOL  from  among  vectors  in  core  in  AJ  space. 

If  no  columns  price  out^  it  calls  CPIECK  to  search  disc  for  replenishment 


Reprices  old  colaimns  in  core  unless  the  prices  obviously 
haven't  changed  (same  p"i). 


COLUMN  2. 


PIKEY  =  0 
JPKTO  =  0 


indicates  no  key  price  held 
for  zero  packet  (old  packet) 


J  =  1,  INCORi 


cycle  in-core  columns 


DJ(J)  =  0  ' 
skip  if  col¬ 
umn  rejectee? 


rP0S  =  col  nl 
3 kip  if  col 
is  key  / 


JP0S  file  col. 
no  on  disc 


JPKT  =  packet  no  ^ip 
if  0  o::"  if  old  packet  no 
or  i  ?  key  not  in/core 


KORj  =  key  origin 

PI<EY  =  key  price _ 

JPKr0  =  key  packet  no, 


DJ  = 

-  TT 

■rr'A, 

•k 

_ _ 

r 

new  packet, 
recompute  price 
and  store 
packet  no. 

price  for  GUB 
problem  if  non 

GUB,  TTk  =  PIKEY  H 

TT  is  IC  row  of  B  ’ 


End  J  loop 


COLUMN  3- 


DMAX=  0 
NDJS  =  0 


most  negative  DJ 

no.  negative  BJ's  values 


cycle  all  columns 


I-  Col  number  of  column 

JTYPE  _  i  -  (0  NULL/FREE/2  BASIC/ 
3  ATBND/  U  key) 


_  at  bound  cols  are  really 

|dj(j)  =  -DJ(jj)  in  at  -  their  true  value. 

This  corrects  for  it. 


Dj(j)  <  -zero] 
1  +  NDJS 


negative  BJ's  counted 


JbI'IAX  =  BJ(J) 
JCOL  =  J 


null/basic/key 


MAX(-)  value 

JCOL  =  in-core  col 
index  position 


A 


COLUMN  4 


_ ± _ 

JCOL  =  0 
JNCORE  = 
NCORE 


no  col  found 

preserves  in-core 
cols  for  next  time 


RETURN 


Subroutine  DISC  DISC  1 

Checks  if  an  inverse  is  necessary  and  then  checks  the  DISC 
files  lAl,  IA2  for  more  useful  columns  using  IN  and  INPCKD. 


DISC  2 


Call  in  KEY  column 
from  packet  file 
to  KORG 


Call  in  actual 
column  to  JORG 


DISC  3 


Check  diagnostics 
required 


Write  out 
new  column 


DISC  4. 


Used  initially  when  there 
are  no  columns  in  core 


This  indicates  that 
there  are  no  other  cols 
to  COLUMU  which  restores 
JUCORE  to  NT. 


jL 


^  Return 


Read  all  NT 

- ^ 

columns  into 

f 

(over- 

writing 

pore 


Places  all  NT  cols 
.  into  core  and  sets 
NULL  columns)^  JNCOEE  to  column 
count 


^  Return  ^ 


N.B.  Once  the  columns  are  read  into  core,  they  stay  there  because 
COLUMN  always  restores  JWCORE  to  NT  and  keeps  track  of  them 
at  the  end  of  each  phase. 


Move  ID,  D 
down  one  placje 

_ 


ID(J)  =  JPj25S 
D(j)  =  DJ 


simple  case  over-write  last 


(j  to  W-1  go  to 
J  +  1  to  N) 


insert  new  col.  record 
in  correct  position 


Search  JA 
for  old 
col.  JP0SR 

—  r 

JP0SR  not 

found  )  ^ 


31 

[jA(j)  =  JP0S 
AJ(JROJ) 

:  AJ(JP0S) 


to  he  dropped 


ERR0R 

INSERT  cannot 

ESCAPE 

- 

find  old 

dump 

^olujmn^^^ - ' 

move  new  col  to  old 
position,  JNCORE  unchanged 


INSERT  3 


move  up  J  to  N  one 
place  saving  N 


save  Jth  in  correct  place 


go  to  move  up  records 


save  value  of  largest  D 
for  use  in  comparing  new 
cols  in  CHECK 


Subroutine  KEYCH 


KEYCH  1 


KEYCH  changes  key  to  make  JCOL  basic  in  some  row  IROW  found,  making 
old  col  key,  and  corrects  a,  3  and 


Error 

escape 

(dump) 


KEYCH-no  basib 
cols  in  essential  packet 


IROW  =  I  row 
J0RG  ==  posi 


of  first  basic  col  found 
tion  of  row  in  B. 


Reverse  sign 
of  this  row 
in  B 


in  cols  Aj  -  -4  A*'j  -  Aj 

basic  key  basic  key 
with  old  basic  ->  new  key 


KEYCH  2. 


skip  IROW 

') 

check  row  is  in 
same  GUB  packet 

add  b(IROW)  to  b(i) 
to  get 

for  new  key 


correct  basis 
and  key  markers 


correct  a,  P  for 
new  representation 


Return 


Subroutine  PIVOT  PIVOT  1. 

PIVOT  inserts  current  representation  of  column  ALPHA  into  basic  inverse 
B  at  IROW,  if  IROW  =  0  it  finds  a  slot  for  ALPHA  or  rejects  it. 
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PIVOT  2. 


Find  best  row  for  AliPIIA  called  from  INVERT  when  row  not  known. 


Pivot  = 
/AIPHA.(l)/ 


cycle  each  row 


check  logical  in  the  row 


insert  the  logical  in  this 
row 


check  row  already  has  a 
basic  col. 


potential  pivot  entry 


PIVOT  3 


DOT 

DOTS 


FUNCTION  DOT,  DOTS 
DOT  and  DOTS  evaluate  double  and  single  precision  inner  products 
DOT  =  x'y- 


double  precision 
accumulator 


in  x'y  y  elements 
are  often  zero  (as  used) 
avoid  double  precision 
manipulations  for  this 
case 


Replace  double  answer 
to  single 


quick  single  precision 
version  to  save  time 
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FUNCTION  BOIMD 


BOUND  -  checks  its  argiiment  and  picks  up  the  variable  bound  value. 


argument  for 
artificial  variable 
unbounded 


variable  unbounded 


NB.  NAME  format  has  least  significant  decimal  digits  as  shown. 

I  ‘ 

. 0  0  B  BiK  K  K  k's 

I  I 

f  ' 

bound  index  (  GUB  <  state 

or  0  I  packet ' 


Function  KEYFND  KEYFND  1. 

KEYFND  finds  key  column  of  a  packet  in  core  or  returns  0. 
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KEYFND  2. 


Ml 


KEYFND  -  0 


no  key  with  no  columns  stored 


indicated  by  0 


PROGRAM  REPGEW 


Wo 


Initialize 

core 

storage 


C-8l 
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SUBROUTINE  INSOLN 


*  This  is  the  same  routine  as  used  in  the  matrix  generator;  its  docu' 
mentation  is  found  there. 
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SUBROUTIlilE  PINFO 
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PROGRAM  GE  NL  C  o  ( I N'^UT  ,  OU IP U T ,  T  AP E  5  =INPU  I ,  T.A P E6= OU T PU T  ,XA£E T ^B£9^ 

THTS^oPnGPAM  GENERATES  THE  MATRIX  FILE  FOR  THE  LEAST  COST  PHASE-IN 
PROBLEM. 


THE  DIMENSIONS  HAVE  BEEN  SET  TO  HANDLE 

MAXIMUM  NUMBER  OF  VEHICLES  -  ---  . .  . . .  , 

MAXIMUM  VEHICLE  LIFE  (IN  YEARS)  =2S 

MAXIMUM  NUMBER  OF  YEARS  ORIOR  TO  SY=16  ^ 

MAXIMUM  NUMBER  OF  TASK  TABLES  =« 

MAXIMUM  NUMBER  OF  ALTERNATIVES  =298  .c» 

COMMON  /VECSTG/  VNAMF(IO),  C,LEN°,  VLIFE(1C)»  INH(10,16>» 

♦  VCOST(10»5),  NAMEN(IO),  COSTS(3:,3)  -  -■  — 

COMMON  /  ALTSTG  /  ALTER{288»R) f Y AVL (10 ) 

INTEGER  ALTER 

INTEGER  FNAMEj  SY»LY . VNAME* YAVL » VLIFE » YEAR (21) 

DIMENSION  nUDG(lCi) 

DIMENSION  NVFHU(?C),NL(10)»NN{10) 

DIMENSION  NAMES  (10)  1  AU(16)»  UB  ( 10)  » YRINT (  20).  . 

COMMON  /TSKSTG/  U(7,288,9)  ,NTSK(  9)  Q^■ 

COMMON  /PRDSTG/  NPERYRdO » 3)  »  NPTASK(1C»  9)»  PTASK(10»9) 

DIMENSION  IHVN(IO) 

DIMENSION  NP(288),NM(9),NRM(10) 

DAT  A(NP(I)  ,1  =  1.240)  /2HQ1, 2H02 ,-2H03, 2H0 4  ^2H05 ,2HQeL,,2Hi37  » 2^08,  ^094- - 

V9M-I  n  PH11  2H12  2H13 . 2H14 ,  PHIS ,  2H 16,  2H1 7, 2H 18 , 2H19 , 2H20 , 2H21 , 2H22 , 

2Hi7  2H28  2H29  2H3C,2H31,2H32,2H33.2H34,2H35, 

»  ?H4q,?H50 ,2H51,?H5?^2H53f 2H55,2H56,2H57f 2H58,2H59,2H63t 

*  2H61,2H62,2H63,2H64,2H65,2H66,2H67,2H68,2H69,2H70  ’ 

*  ?H73  ?H74 , 2H75  » 2H76 , 2H77  ,2H73  »  2H.79, 2H  80 ,2H&1»  2H82, 2HS3.,  2H8-4^ - 

*  2H85;2H86,2S«7,2H88,2H89,2H90,2H91,2H92,2H93,2HR4,2H95,2H96, 

*  ?Hq7.2H98,2H99,2HA0,2HAl,2HA2,2HA3,2HA4,2HA5,2HA6,2HA7,2HAa, 

*  ?HAq  2H90 ,2H81 ,2Hn2 ,2HB3 , 2HB4 , 2HB5 ,2HB6 ♦2HB7, 2HB8 , 2HB9, 2HC9 , 

"  2hS^7Sc2  ISc3  2HC4  2HC5  2HC6  2HC7.2HC8.2HC9.2HDO,2H01.2H02, 

"  2HD3  2HD4  2H05,iHD6  2HD7  2HO8.2HOq,2HE0,2HEl,2HE2,2HE3,2HE4, 

.  2Hfs  2HE6;2HE7:2HE8,2HE9.2HFQ,2HFl,2HF2,2HF3,2|iE^  . - 

*  2HF7.2HE8,2HF9,2HG0,2HG1,2HG2,2HG3,2HG4,2HG5,2HG6,2HG7,2HG8, 

*  2HG9,2HM0,2HH1,2HH2,2HH3,2HH4,2HH5,2HH6,2HH7,2HH8,2HH9,2HJ0, 

*  2HJ1.2HJ2,2HJ3,2HJ4,2HJS,?HJ&,2HJ7,2HJ8,2HJ9,2HK0,2HK1,2HK2, 

^  7  MIC  7  7H<4 . 2HK5  «  2HK6 ,2HK7»2HK8f2HK9f2HLCf2HLl»2HL2f  2HL3  ♦  2HL4  9 

*  2HL7,2HL8,2HL9,2HMQ,2HM1,2HH2,2HM3,2HM4,2HM5,2HM6, 

*  2H M7 1  2 HM8 , 2 H M9 , 2HJJ0  ,  ZmU  aHN2 , 2 HN3 , 2HN4 , 2HN5 , 2HN6  ,2HN7.,^HN3^  _  _ 

*  2HNq,  2HP0 ,2H01 ,2HP2 , 2HP3 , 2HP4, 2MP5 ,2HP6 ,2HP7 , 

0ATA(NR (I) ,1=241,288) /2HQ1 ,2HQ2 , 2HQ3,2HQ4, 2HQ5 , 2HQ6, 2HQ7,2HQ8,_ 

*  PwriQ  ?HRfl  ?hP1,2HR?,2HR3,2HP4,2HP5,2HR6,2HP7,2HR8,2HR9,2HT0,2HT1, 

*2H?2’2HT3  lH?t,lHT5,2HT6,2HT7,2HT8:2HT9,2HU0,2HUl,2HU2,2HU3,2HlL4, 

♦2HU5UhU6,2HU7,2HU8,?HU9,2HH0,2HW1,2HW2,2HW3,2HH4,2HH5,2HW6, 

data  NM/2HH1 , 2HM2 , 2HM3, 2HM4, 2HM5 ,2HM6, 2HM7 ,2HH8 ,2HM9/ 

DATA  NZ/2H00/  ^  , 

DATA  SX,SW,SP,SS,Sn,SG/lHX,lHW,lHP,lHS,lHB,lHG/ 

DATA  IVT.ITT , IPT, lED  /8HVEHICLE  ,8HTASK  ,8HPERIOD  , 

*  8HEN0TA8LE  /  _ 

ONE  =  1.0  ...  .  - . -  •  -  - .  . 

0NEM=-1.0 


laocaoifl- 
10000020 
10000030 
100C0040 
IDCCQOEO 
10CC0060 
10009070 
10000080 
10000090 
10000100 
lOCOOllO 
10000120 
,10000130 
100G0140 
10000150 
10000160 
10CC0170 
lODOOlRO 
.10000190 
10000200 
10003210 
10000220 
1000Q230 
10000240 
...100.90250.. 
10C00260 
10CQ0270 
,10000280 
1QC00290 
10000300 
_1 0  00  031 0- 
10000320 
100Q033C 
10C00340 
10000350 
10000360 

-laoooozo 

10(100380 
10CD0390. 
10000400 
10000410 
10C00420 
10000430 
10000440 . 
10000450 
,  10000460 
,  10000470 
10000480 
.10000.490. 
1CC00500 
10000510 
10000520 
10U00530 
10GC0540 
,  .  1000  0550.. 
100C0560 
10  00057.0 


o  o  o 


II 

icoonspn 

no  R  j  =  i,3.^^o 

1C  jorr-oc 

00  1  K=1,R 

1 0  C  0  j  f)  ( [i 

u(i, j,K)=c*: 

1 G00061C 

1 

CO^ITT^UjF 

ioounf.?o 

•> 

'continue 

10  0C3P.3J 

z 

COMTTNUE 

1 0  C  0  0  *i  c 

r  TM5; 

D'lTa  rnMTaiM't  la. 

THE 

filename  to  be  used  =fmame 

1CC0C6FC 

C 

1-3. 

THE 

starting  YfAP  (OR  OECISTOM  YFAP) 

icoouFf-r 

c 

1C. 

THF 

last  year  =  LY  =SY 

nccof.73 

c 

THE 

NUMREp  of  vehicles  =  MV 

icc:d3«c 

c 

23. 

THE 

NtlMREP  OF  TASKS  =  NT 

1C000690 

o 

20. 

THE 

NUMBEP  op  PFpinnS  =  NPP 

ic:co7( 0 

C 

3a. 

-P  (1 

-1)  parameter 

looajYio 

RrAn(S, 1 JCO)  FNAMF, 

SY.LV,  NV 

,nt  , 

NPP,I7PLM1 

lGCLu7?u 

i:  j  j 

FOR’^AT  (  AH,?X,  GTE) 

10000733 

WPIirCOflClG)  FM AMF, 

■^YtLY,  NV 

,NT, 

MPR 

ia00C74C 

IJiu  rOPMAT  ( ‘SCHl  G^^MFP^TTNG  IMF  MATPTY  FOR  LEAST  HOST  PPORlonOO/FO 

»L"M  /IIMOFTL FMAPFr  ,A8,1GH  STARTIMG  yFA^  =,TS,1?H  LAST  YEAR  =,IS,inuC07FC 
^/liw  WILL  TMPUT,T3,?0H  VEHTClE  TARLES,  AND,  TASK  TARLE,  AND10G03770 


TStlEH  OE^^TOn  TARLFS. 

NT  ^  =  R 
H^T  =  r: 

Miv=n 

READ  TTTLE  hf  mFXT  TAPLE 
Ij  9EAn(5,ljC0)  ITARLF 


) 


OECTOE  the  type  of 

Ta^LF 

ANO 

GO  REAO  ITS  PATA 

tfcttarle 

.FQ. 

T\/T) 

so 

TO 

20 

11  tfcttarl^ 

.EO. 

ITT) 

GO 

TO 

4C 

IFdTAPLF 

•  fq. 

JD-) 

GO 

to 

GO 

.  IFd^APLE 

•  EO, 

TFP) 

GO 

TO 

ICC 

THE 


C 

0 


tarle  name  ts  NOT  prnsMi^ro, 

WRITP(R,in?0)  ITAPLE 
FORMAT  (  lY, A^, SQH  JS  MQT 
^PMTMATED.  ) 

STOP  1 

WPTTF(6,10S0) 

FORMAT  (  ■^OMO  REAOT^^O  JM  A  yPHtOL’'  TAPlE 
M\/P  =  MVO-f  1 

PEAH  f  S  ,  1C4  0)  VNAMF  , 

WPTTE  (6  tIOEC)  VMAmf  (M\/P5  , 

FORMAT ( AR,1X, T4,Gy,T^) 

FORMAT  (IX,  A<^,  ?X  ,:^T1C) 

YNAMf^mamc  of  VEHTCLE, 

yltfe=  maximum  life  re 


TH'RE  IS  AN  INPUT  ERROR 


i'j2j 


2j 

lOSO 


1040 
IjS  J 


A  TAplE  name,  input  ERROR.  EXECUTION  IS 


YAVL(MVP) , 
Y AVL (NVP) , 


) 


VLIFE(NVR) 
VL IFf<NVR) 


YAVL=  1ST  YEAP  VEHICL'-  AVALTRLE, 
VEHICLE  TM  years. 


VEHICL' 


WAS  AVALTARLF  RFFORE  the  STARTING 
PY  YEAR  BUILT. 


?S 


IF  THIS 

SIZE  OF  IMMEPITEn  FLFft, 

NU=SY  -  YAVL(MVP) 

TF(  MU  .LE*  0)  on  to 
MIVrNIV+1 
T  A  =  1 
TR=.<^ 

PEAQ(E,ir6C) (INHfMVR,I),I=IA,IB) 
FOpmat ( HIIO) 

IF (in  .GF,  NU)  GO  TO  PS 


lOGQ 


100C07«G 
10000790 

icDo:?^uo 
iOOCOBlC 
10C'008?G 
10  000^^30 
looc  0-^4: 
lOGQCOFO 
1000D«60 
lCL'CCa7G 

lOiO  'QftQ 
lOOGuBOj 
1GOC09CO 
1GCCG910 

inoon9?o 
TEIP  0u]93j 
ICGC 0940 
1CCLC95C 
ICrCORf 0 
10DGG97U 
IGuuQRf^: 
ICCGCRPO 
loonioco 
lOGulOlJ 
lCCDlu2b 
ICGCIO’O 
icccio^n 
IJClIOEC 

YEAR,  THEN  pfaO  IM  ICCOIOEO 

10CC1D7G 

ICCCIC^C 

ICLOlCRj 

nociico 

irioiiic 

1CCC112C 

1000113C 

10CC114C 

IGCOllEC 


D-3 


o  o 


TA=IB+1 

rB=TB+B  . 

GO  TO  23 

25  READ  (5,1070)  ( VCOET ( NVR, I ) , 1=1 , 5) 

1070  FORMAT  (5F10.2) 

C  VCOST(MVR,l)  .GT.  I.OEIO  INDICATE?:  THIS 
C  PURCHASE. 

GO  TO  10 


10001160 

■  - . - . - . .  -lOiiaiizc- 

1D001180 

lOCOllOO 

10001200 

VEHICLE  IS  NOT  AVALIABLE  FOR  10001210 

10001220 

- .  - . . ^...10  00X230 


IT  IS  ASSUMED  THAT  ALL  VEHICLE  TABLES  APE  IMPUTED  FIRST. 

40  WRITF(6,1080) 

1080  FORMAT (2PH0  READING  IN  A  TASK  TABLE  ) 

NTP=NTR+1 

REAO(5,1090)  IDT,NU,NA 
WRTTE(6,1090)  IDT,NU,NA 
1090  FORMAT(3I10) 

C  inT=TASK  IDEMTIFTCATTON  NUMBER,  NU=NUM8ER  OF  VEHICLES, 

C  NA=NUMBFR  OF  ALTERNATIVES 
NTSK{IOT)=NA 
IA=1  .  . 

IB=8 

43  REAO{5,1100)  ( N AMES ( I) , I=I A, 19 ) 

1100  FORMAT(8(A8,2X) ) 

IF(IR  .GE.  NU)  GO  TO  45 

IA=IB+1 

IB=IB+8 

GO  TO  43  . 

45  DO  47  1=1, NU 
DO  46  J=1,NVP 

IF(VNAME(J)  .NE.  NAMESd)  )  GO  TO  46 

NAMFS{I)=J 

GO  TO  47 

46  CONTINUE 
WRTTE(6,1110)  NAMESd) 

1110  FORMAT(15H0  VEHICLE  NAME  ,A8,60H  NOT  DEFINED  IN  A  VEHICLE  TABLE, 
EXECUTION  TERMINATED.  ) 

STOP  2 

47  CONTINUE 

c  •  . . . . 

C  NOW  REAR  IN  U{J,K,L),  NUMBER  OF  VEHICLES  OF  TYPE  J  REQUIRED  TO 
C  PERFORM  TASK  L  WITH  ALTERNATIVE  K. 

DO  55  K=1,NA 
IA  =  1 

.  . 

48  RFAD(5,1120)  (AU( I) , T=IA, IB) 

1120  FORMAT(aFlO.O) 

IF(I0  .GE.  NU)  GO  TO  49 

IA=IB+1 

IB=TB+8 

GO  TO  48  . 

49  DO  50  T=1,NU 
J=NAMES{T) 

U(J,K,  IDT)  =AU(I) 

50  CONTINUE 

55  CONTINUE 

56  REAn(5,1000)  ITABL5 

GO  TO  11  . . .  ■ 


10001240 
10001250 
10001260 
10001270 
10001280 
.  101101290 

10001300 
10001310 
10G01320 
10001330 
10001340 
10  0.01350 
10001360 
10001370 
10001380 
10001390 
10C014G0 
_  .  10  01)1410.. 
10001420 
1C0C143G 
10C01440 
10001450 
10001460 
—.10  001470 
10001480 
10001490 
E10D01500 
10001510 
10001520 
10001530 
10001540 
10001550 
10001560 
10001570 
10001580 
.10001590. 
10001600 
10C01610 
10001620 
10001630 
10001640 

. 1X001650. 

10C01660 

10001670 

10001680 

10001690 

10CC17C0 

10 L 01710- 

10001720 

1CQC1730 


D-4 


o  o  o  o  o 


f,D  M0ITr(^,li:?C» 

PFADTMf-  TM  ^  P"»IOn  'AOLF  ) 

Q  JHC  oroinn  TA^trs  A"'"  FVP'^nTEO  T‘4  C*<PPNOL  iVL  OPDFR, 

fjoyrMPT  +  l 

'^rAn  {'5,1140)  (MPFPYO  (N“T  ,  r)  ,  t- 1 ,2)  jPUPG  (MPT) 

114;,  FPPMfiT  (T4,I‘'',3y,F“.?) 

WPITE(6,1150)  (MOcoyc;  (KiPT  ,  I)  ,  T  =  1  ,  ?) 

HR.  f  OPMAT  (215) 

TF(mdt  .pQ.  1)  GO  TO  61 

tc(mofoyp(MPT-i ,2) +1  ,F0,  MPPRYP (MPT, 1 )  )  GO  TO  61 

WPrTT(G,ll55) 

IIRR  FO°HfiT(35H  THF  PF^TOn  TARLFS  APF  OUT  OF  ) 

CTnP  1 

61  tfiry  ,r,T,  NP^pYP  (NPT,1)  )  GO  TO  7u 

0^40(5,1158)  MU,YOTMT  (MOT) 

1158  FODMAT  (IIC.FIO.T) 

0  ALL  the  TARKS  ape  SOALEO  RY  THF  FAC^OP  YRINT(MPT)  IN  THE 
ivjofpvr(MDT  ,3)  =NU 
TA=1 

T  0=  A 

na=mpt-mtmhp 

63  peA0(5, 1160) ( (NPTASKINA.T) ,  PTA S Y (N A , I ) ) , I = T A , T P ) 

IIGC  FOPMAT (8(I5,F5. 0) ) 

TP{TO  .G'^.  MU)  GO  TO  56 
TA=Io+l 

IR-IR+A 

GO  TO  63 
70  >'iTMMO  =  MTMHO+l 
GO  TO  56 


ICCT  174C 
ionot7‘=o 
ID v 01 760 
1C CC 1770 
ltOC17AO 
10001700 
lOCUlflct, 
1C  DO  181 C 
1CCC1P2G 
1000183C 
ID  :dia4o 
10001850 
1CCC18FC 
1DCC1870 
lGGCl88j 
IDuOlSRJ 
PEPTOn  MPT  lOCLlRf'O 
. 1CGC1910 
10601020 
10DG1R30 
10C01P40 
1CG0195G 

incniR6o 

10DG1970 

locriRPo 

10CC1990 

10002000 

10002010 

10002020 

1CCC2D3C 


ALL  TARLE  HAVE  RFEM  ppAR  IM.  NOW  PPPCFSS  THEM  TO  RE  ARL'’  TO  GFMEPATF  ICtCZOLC 
THE  hatptx.  10002050 
FIRST  CHECK  TO  DETERMINF  IF  THF  EXPECTFO  MUHRFP  OF  TABLE  WERE  T MPUTFOl 0 0 3 2C 60 


130  TF((MV  .EQ.  ►'V/o)  .AMO.  (MT  .FO,  M  1P)  .AMO.  (Moo.EQ.  NPT))GO  TO  1G510002CI70 


WRT  TF  (  6,1170  )  10LC2C'’C 

1170  FOpmaT(71H  WAPMTMG-TwE  NIJHRFR  of  TABLE  ACTUALLY  TMPIJT  WAS  MOT  THE  i:CC2URG 
’EXPECT  NUMRFP.  )  1DJL'21':.D 

10002110 

OPOEP  THF  VECHTLES  Sn  THE  APE  IM  OFSEMOTNG  ppOFR  pF  P+0  COST.  1CC02120 

105  MPOrO  1P002130 

00  137  1=1, MVP  10l021‘‘U 

MAMFM(T)=T  lOfCOlGO 

TF(VrOST(I,3)  ,LE.  0,0)  GO  TO  IG'  10C021E0 

n!PO=mpO  +  1  10002170 


107  CONTTMUE 

IF(NPO.Fn.O)  GO  TP  1^1 
MV=MVR-1 
no  120  11=1, NV 
T=MAMFM{TI) 

IMAXrTI 
TPl=TIfl 
OHAy=VOnST (I , 3) 
no  110  jj=iPi,NVP 
J=MAMEM ( JJ) 

IF(C‘^AX  .GE,  VCnST(J,3))G(3  TO  HC 
THAX= JJ 

CMAX=VC0ST ( J, 7) 
llJ  COMTIMUE 


1C0C21P3 
1G0021P0 
1 00022CC 
10002210 
1C:,,C?2?C 
10102230 
10C02240 
10002250 
10302260 
10002270 
1 GCC22P0 
1OC022PO 
10.:D?3oC 
1QC.02313 


D-5 


120 

C 

C  NOW 
C  IT 
C  TH 
125 


J  =  NAMEN(THA)() 
NAMEN(IMAX) =NAMENtII) 
NAMEN( II)=J 

IF( VCOST(J,3)  .GT.  0.0) 

GO  TO  125 

CONTINUE 


130 
C  FO 


133 
140 
C  NA 
C  OE 
C  IF 


C  LI 


DETERMINE 
IS  ASSUMED 
E  TASKS  HAtf 
no  140  T=1 
NAHES(T)=1 
J=NAMEN{T) 
DO  133  L=1 
NA-NTSK(L) 
DO  13G  K=1 
TF(U(J,K,L 
CONTINUE 
UNO  A  TASK 
NAMES (I) =2 
GO  TO  140 
CONTINUE 
CONTINUE 
meS(T)=2  if 
VELOPED,  =1 
A  VEHICLE 
NA=G 

DO  145  1=1 
K=NAmes  (T) 
GO  TO  (145 
L  =  NAMEN(I) 
IP1  =  I'H 
K=NRn-NA 
DO  144  IT= 
NAHENdl-l 
NAMEN(K)=L 
NA  =  NA4-1 
CONTINUE 
NRO=NRn-NA 
ST  VECHILE 
WRITE(6,11 
F0RMAT(33H 

¥■ 

DO  150  11= 
I^NAHEN (II 
WRITE(6,11 
FORMAT (6X, 
CONTINUE 
IF(NVR  .LE 
WRITE(6,12 
FORMAT (13X 
J=NRD+1 
DO  155  11= 
I=NAHEN  (II 
WRITE(6,11 
CONTINUE 

NROW=0 


IF  FOP  ANY  P4-Q  VEHICLE  ITS  DEVELOPMENT  'S  NJQT..QRlliaN&i_. 

ALL  TASKS  ARE  PREPORMFO  DURING  SOME  PERIOD  AND 
E  BEEN  NUMBERED  SEQUENTIALLY.  . 

,NRD 


,NTR 


,NA 

)  .EQ.  G.O)  GO  TO  133 

PEOUIPING  THAT  VEHICLE  J  BE  DEVELOPED 


THE  I  TH  MOST  EXPENSIVE  R-t-D  COSTING  VEHICLE  MUST  BE 

otherwise 

MUST  BE  DEVELOPED  TREAT  IT  AS  IF  ITS  'R+D  COST  =0 . . 


,143)  ,K 


IP1,K 

)=NAMFN(TT) 


NAMES  AND  CORRESPONDING  VARABLE  LABELS. 
80) 

0  VEHICLE  NAME  VApIABLE  NAME  /  8X, 

21H0PTT0NAL  P+O  VEHICLES  ) 

l,NRO . 

) 

90)  VNAME(I),  NP(IT) 

A8,  5X,  1HX,A2) 

.  NPD)  GO  TO  200 

00) .  ..  .  . 

,14H0THEP  VEHICLES  ) 

J,NVR 

) 

90)  VNAME(T),  NP(IT) 


10002320 
.  10-0a2330^ 
10002340 
10002350 
10C02360 
10C0237G 
10002380 
..  101102390 
10C024C0 
10002410 
10002420 
10002430 
10002440 
.  .,10002450 
10002460 
10002470 
10002480 
10002490 
10C025C0 
10002510 
10002520 
10002530 
10002540 
10002550 
10002560 
10002570 
10002580 
10G02590 
100026C0 
10002610 
10002620 
.  10  GO 26.30 
10D02640 
10002650 
10002660 
10002670 
10002680 
.  .10002690 
10002700 
10002710 
10002720 
10002730 
10002740 
.10002750 
1CCQ2760  . 
10C02770 
10CC2780 
10002790 
100028CO 
.J.0GC281Q. 
10C02820 
10DD283Q 
10002840 
10002850 
10002860 
1QDQ287.Q 
10002880 
100112890 


MHOLrC 

ICCCZPC'D 

C  LIST 

orjW  MAMrS 

10C02910 

?  J  i 

W>ITr{P>,ipiO) 

1G3C2P2C 

lEU 

FOPMATCPf^  4MMAMr,  1  lY  ,  A  ?H  ^,4^00^^*^) 

10GC293C 

W  nTF(4, 1.211)  FMAMr 

inCLZOAG 

‘FnoMAT  (  4HMAMr^l(;Y,AS/  4HPnMS) 

10002Q50 

C 

i:v  029^=0 

r* 

iDwC?07:. 

0  MOW 

TMT  pow  LAPPLS  THE  HASTEN  V^'PTAPLFP 

10CC2P«C 

nn  ?20  Tri,MVo 

1CCC29PG 

WolTr(P^i?40) ' MPCT) 

loroicro 

12Uj 

FnRHaT(2M  *”  SUHX,A2) 

lOOQlOiO 

W’^TTC(4,1?41)  NiP(T) 

lorc^oeo 

Mi?nw-Ni^^nw+ 1 

lOOG^Ol'G 

I’M 

FOPMAT  (  BH  *“  S(jMX,A?) 

10003040 

22a 

comttmuf 

10EC30Fj 

c 

1CCC3CF0 

r 

POWS  FOP  PP^Pl»PEMENT  OOWST^AINTS 

ICCulCTC 

0 

10003080 

T A=MPT-MTMM3 

IL  uC3U9j 

DO  225  I=l,Ta 

IOC  0310  0 

W9ITF  (4,122*=^)  NP<T> 

10CC311Q 

i22S 

FOPMAT  (f>H  F  POfA?) 

innn'^i?n 

(5,1224)  NP(T) 

IGl-  }31  3J 

1224 

format  <2H  ^,5H  oo,fl2) 

10003140 

MPnw=N^OWf 1 

1G003150 

225 

COMTTMUF 

lonniiFo 

0 

10CQ3170 

C  MTU 

1  THF  POWS  ACCnUN'^’TMn  FOP  TWE  TMH  -PTTED  F* 

.EET  . 

1QC0318D 

TF  (MTMHP  .FQ.  0  )  on  TQ  :^0G 

IDCQMPO 

IRrMTMHP  -  1 

10G03200 

IF(in  .EO.  0)  GO  TO  P40 

10003210 

no  210  T=1,TP 

10003220 

JrMTMHP  T 

10003230 

MOM  (T)  =K|M{  J) 

lOGn'^240 

CO^ITTM(JF 

11033250 

24C 

MPM  (MTMHP)  =M? 

10003250 

IF(NTV  .*"0.  0)  GO  TO  31)0 

10003270 

mA=MpD  +  1 

1CGG32P0 

JC=1 

10GC32O0 

UO  20G  JJ=MA,M\/P 

10003300 

J=MflMEM( JJ) 

IGCul^lC 

r^^'CYAVLCJ)  .OF,  CY)  r,n  TO  ?Fl 

1CGC3320 

THVN(  JDrJJ 

1CGC3330 

JC=JC+1 

10003340 

DO  P50  T=l, MTMHP 

10033350 

IF(YAVL(J)  .GT.  ^'PFPYPCT,  2)  )  GO  ’'0  250 

1000335C 

TArHAXC(YAVL(J)  ,MrFPYP{T,l))  -  YAVL(J)  ♦- 

1 

10C03-<70 

TO-MPFPYP( I, 2)  -  YAVL(J)  +  1 

10003380 

DO  245  K=IA,Tn 

ICC  ]330C 

IF(IMM(J,<)  .GT.  r)  GO  TO  24^ 

lGCG34tu 

245 

COMTTMUE 

1GCC3410 

GO  TO  250 

10003420 

24n 

WPTT^ (5,1250)  MP( JJ) , MPM( I) 

lQriQ343C 

125  0 

FOPMAT(2H  5H  f  I W , A 2 , IHp , A ? ) 

1CLC3440 

WPITE(4,1251)  MP(JJ) ,NPM(I) 

1GCC34F: 

MPOW-MPOWf 1 

1GCC345C 

FOPMAT  (  5H  F  TW,A2, IMP, A?) 

12. J347U 

D-T 


o  o 


COMTTNUE 

260  CONTINUE  -  -  - .  -  - -  - 

NOW  OUT  OUT  THE  LABELS  FOR  THE  ROWS  FOR  EACH  PERIOD,  THE  VEHICLE 
balance  rows  FIRST,  THEN  THE  TASK  ROWS. 

TOO  IA=NTMHP  f  1 

00  350  T=IA,NOT 

IB=I  -  NINHR  . .  .  .  - . . . . 

NU=NPERYR{I,3) 

DO  340  JJ=1,NVR 

IF  THE  VEHICLE  IS  NOT  YET  AVALIA9LE  IT  CAN  NOT  BE  USED. 
J=NAMEN(JJ) 

IF(YAVL(J)  .GT.  NPERYR(I,2))  GO  TO  340 

MAKE  SURE  THE  VEHICLE  IS  USED  . - . -  - 

00  320  K=1,NU 
KT-NPTASK(IB,K) 

NA=NTSK(KT) 

00  310  K2=1,NA 

IF(U(J,K2,KT)  .NE.  0.0)  GO  TO  330 

310  CONTINUE  -  .  • 

320  CONTINUE 
GO  TO  340 

330  WRITE(6,1260)  NP(JJ),  NO{I8) 

1260  FORMAT(2H  *,5H  E  X,A2,1HP,A2) 

WRTTF(4,1261)  NP(JJ),  NP(IB) 

NROW=NROW+l  .  . .  .  .  •  - .  . 

1261  FORMAT  (5H  E  y,A2,lHP,A2) 

340  CONTINUE 

DO  345  K=1,NU 
KT=NPTASK(IB,K) 

WRTTE(6,1270)  NP(KT) ,  NO(I3) 

1270  FORMAT  (2H  ♦,  5H  E  T, A2,1HP, A,2)  . - . . - 

WRTTF(4,1271)  NP(KT),  NPdB) 

NR0W=NP0W+1 

1271  FORMAT  {  5H  E  T,A2,1HP,A2) 

345  CONTINUE 

350  CONTINUE 

COMPUTE  UOPER  BOUNDS 
DO  3<30  11=1, NVR 
UB{TT)=0.0 
I2=NAHEN(II) 

IA=NTNH°+1 

DO  330  I=IA,NPT  .  . . 

NU=NOERYR(I,3) 

11=1  -  NTNHP 

IF  (YAVL{I2) .GT.NPFRYR(I,2))  GO  TO  3«0 

DO  375  J=1,NU  . 

JJ  =  NPTASK(I1,  J) 

TF=  PTASK(I1,J)  .  . . - 

NA=NTSK(JJ) 

UMAX=0.0  .  - 

no  370  K=1,NA 

TFIUHAX  .GT.  U{I2,K,JJ)  )  GO  TO  370 
UMAX=U(I2,K,  JJ) 

370  CONTINUE  .  . - . 

UB(II)=UB(II)  -  TF*UMAX»yRINT(I) 

375  CONTINUE 


10003450 

. -.10Gfl34O0- 

10003500 
.  -  10C03510 
10GC3520 
10003530 
10003540 
_  .  .10003.550. 
10003560 
10C03570 
10003590 
. 10003580 
100036C0 

_ 10003610. 

10003620 

10003630 

1CC03640 

10003650 

10003660 

. 10003670 

10003680 

10003690 

10C037C0 

10003713 

10GC3720 

_ 10003730 

10003740 

10G03750 

10003760 

10003770 

10003780 

_ 1000  3790 

10003800 

10003810 

10003820 

10003830 

10003840 

_ 1000385.0 

10003860 
..  10003870 

10GC3880 
10C03890 
10003900 

. 10003910 

10003920 
.  10003930 

10003940 
10003950 
10003960 

_ ±0003970. 

10003980 

10003990 

100040CC 

10004010 

10004020 

. . 10.0.040  30 

10004040 

10004050 


^n.rj  nOMITMlIf: 

39j  r.riMTTMUf: 

W'5TTF(r,  ,1220) 

l?2j  Fn''>MAT(?H  »,«H  M  nn''NT) 

W'5TTF(4,1?21) 

•M'?nw=‘i'^nw+ 1 

1221  FOC>M/ST  («M  N  ^OCT) 

C 

W^T  !>■('=>,  12 '^G) 

\pa^q  *,  MMMS) 

W?TT'^(P,,1?9G) 

irnoMftT('>H  »  ,  «  X  , f  P  I A  L  LTSTINT,)*) 

WOTTc-  (4,121^1) 

12A1  FOOMST  (  rMr^LUMNC) 

C  ^'^W  9fN'"RAT'-:  THF  MATPIX  FLEMFNTS. 

C 

<'.  THF  XMH  CniJJHMS, 

no  420  I  =  l,H\/o 
I T=WAMFM(I) 

WPTTF(F,13G0)  MP(T) ,MP(T) ,0MFM 
13G.  FT:*MftT(2H  »,4X,  1HX,A’,7X, 

WPTTP(4,13  01>  NP(T)  ,HP(T)  ,OMF''1 
MCOL  =  '^nnL+l 

13vl  pOPMAT  (4X,  IHV  ,  A,?,7X, 

42  D  r:OMTT''l')F 

c 

c  THF  3KJM  columns 

c 

T  AsHPT-MTMHp 

m  4'?j  t=i,ia 

WPTTF  (4,1311)  MP(T) ,MP(I) ♦HHE 
1311  FqqMlT  (4X ,1HP, A2 , 7X , 2HP0, A2,9V , Fl?.4) 

WPTTF  (F,,131C)  MP  (  T)  ,  MP  {  T  )  ,nNF 
131o  FnoHAT  (2H  *,4X,  IHP , A2 , 7 X , 2HPn ,  A 2 , FX , FI  2. 4 ) 
Mr,r)L=H90L<-l 

IF  (T.FQ.IA)  r,n  TP  4^0 
TF  (I7PLM1  .FD  .  1)  r,n  TO  430 
WPTTF  (4,1313)  NP(T) ,NO(r+l) ,PHPM 
WPITF  (6,1''1P)  MP(T)  ,wn(i  +  l  )  ,nMFM 

131?  FOPMAT  (2H  'f,4X,lHP,  A2,7X,2HPC,  A  ?,FX,F12.4) 
1313  FOPVAT  (  4X  ,  IHP,  A2, 7X  ,2HP9,  l'’,FX,F12 .4  ) 

430  CnHTTNUF 

C 

C  FjEnifratE  THF  WJJLLMM  COLUMMS 
C 

440  TFlf-'TV  .FQ.  D  70  4«(0 

on  47D  TT=1,NTV 
JJ=THVH(II) 

J=MAMFM ( JJ) 

GALL  YPCPST(J) 

□9  4F0  T=1,HTNHP 
MAXL=VLTFE ( J) 


IGi,  04i'(  j 
13  ('040  70 
100U4CP:' 
1QG04CPQ 
lOGrAlFQ 
10;'  ^4110 
lCC041?j 
1 CCOAl’O 
10004140 
10JC4150 
100l41F j 
10004170 
j  Oc  0  41>‘C 
10004100 
13!j342t0 
13:.  C  4212 
10004220 
10004270 
12  13424C 
1ju342FC 

4HGIIMX,  A2,4)(,F12.4)  1  00  042^0 

100D4270 
1 ;0C4?PC 

4HGUMX, A2,4X,F12.4) 1CC:429G 

1C0C43C0 
10004310 
10.;  ;43?3 
10Gu433j 
10CG434C 
10004700 
1C:'l43F0 
1CC.C437G 
1DC043PC 
10004390 
10  'C44ii0 
lCuC441G 
10004420 
10004470 
1000444: 
13004490 
10CC44F0 
10C04470 
1000448] 
lCLG44Pa 
10004500 
10004510 
10004520 
IG  JCI453] 
10304542 
1G0C4550 
10004550 
10  0  0  4571, 


TF(YAVL(J)  .FT.  MpfPYP(T,2)  )  GO  TO  460  13CC45flJ 

IT  TS  AFSIJMFO  all  THf  VfCHILFS  IHHFpITfo  fpOH  A  PFPTOO  WFPF  puPCH  ASFD  10  C  045^2 
JKJ  yqr  FTPST  X5AP  OF  TH*"  oFoinn.  10004500 

T  ft  vn  f  vft  wi  f  n  .  MPFPYP  r  T  - 1  n  -  YavL(.J)  +  l  l!ji,j46l? 


I A=HAX0 (YAVL ( J) ,HPFPYP( I , 1) ) -  YAVL(J)  +  1 
I n=MPFPYP( I , 2 )  -  YAVL(J)  +  1 

no  445  <-IA, 10 


10  0  0452': 
lCiC453C 
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IF(TNH(J,K)  .GT,  0)  GO  TO  448 

445  CONTINUE  .  .  .  -• 

GO  TO  460 

448  NAGE=SY-NPEt?YR(I,l) 

C=  COSTS(NAGF,2) 

L IFFR=MAXL-NPGE 

TF(C  .EQ.  0.0)  GO  TO  440 

Q-_0  _  _ _  _ _ 

WRITF(6,1330)  NP(JJ) ,NOH{T) ,NZt  C 

1330  FORMAT (2H  *»4X,1HW,P2,A2, A2,3X,4HC0ST|6X,F12. 4) 
WPITE(4,1331)  NP(JJ) ,NPM(T) ,NZ,  0 

1331  FORMAT  { 4X , IHW , A  2 , A2 , A2, 3X , 4HC0GT , 6X ,F 12 . 4) 

440  WRITE(6,1340)  NP( J J) , NPM ( I) , NZ ,  NP( JJ) ,NRM ( I) ,ONE 

1340  FORMAT(2H  ♦  ,  4  X ,  IHW » A2  ,  A2  ,  A2  ,  3X.,  2HIH,  A2 ,1HP,  A2,3X.,F12..4). 
WRITE(4,1341)  NP(JJ) ,NPM(I) ,NZ,  NP( JJ) ,NPM (I) ,0NE 
MC0L=MC0L<-1 

1341  FORMAT  ( 4 X , IHW , A2 , A2 , A2,  3X ,  2HIW, A2 ,1 HP , A2 , 3X ,F12 . 4 ) 

ia=ntnhp+i 

00  455  K=IA,NPT 

C  MAKE  SURE  THE  VECHILF  IS  USED 

ky=k-ninhr 

NU=NPERYR(K,3) 

DO  451  KK=1,MU 
KT=NPTASK(KY, KK) 

MA=NTSK(KT) 

00  450  K2=1,NA  - 

IF(U(J,K2»KT)  .NE.  0.0)  GO  TO  4511 

450  CONTINUE 

451  CONTINUE 
GO  TO  455 

4511  TF(SY+LIFER  .LE.  MPERYR(K,1))  GO  TO  46C 

IY=NPERYR(K,2)-NPEP.YP(I,1)+1,.  ...  - . . 

IX=NPERYR(K,2)  -SY  +  1 
C=-COSTS{IY,2) 

IF(K  .EQ.  NPT)  C=-C0STS{IY,3) 

00  45?  KK=1,IX 
KKK=KK+NAGE 

C=  C  +  C0STS(KKK,1)/.VC0ST{J,4)*»KK  . - 

452  CONTINUE 

WRITE(6,133D)  NP(JJ) ,NPM{T) ,NP{KY) ,  C 
WRITE(4,1331)  NP(JJ) ,NPM(I) ,NP(KY) ,  C 

WRITE(6,1340)  NP( J J) , NPH ( I ) ,NP (K Y) ♦  NP ( JJ) .NPH ( I) *  ONE 
WRTTE(4,1341)  NP( J J) , NPM ( I) , MP (K Y) *  NP  (  J J)  , NPM ( I ) ,  ONE 

MCOL=MCOL+l  ,  ,  _  . . -  - 

C  =  1.0 

ALPHA=VC0ST(J,4) 

LLL3=0 

00  4521  L3=IA,K 
L4=L3  -  NINHP 

WPITE(P>,1350y  NP(JJ)  ,NPM{  I)  ,NP(KY)  ,  NP  (  J  J)  ,  NP  <L4)  ,  C 

1350  F0RMAT(2H  ♦ , 4X , IHW, A2 , A2 , A 2, 3X ,  IHX , A2 , IHP , A2 , 4X , Fi2 .4) 
WPITE(4,1351)  NP(JJ)  ,NPH(T) ,N0(KY) ,  NP  ( J J)  , NP (L4 ) ,  C 

1351  FORMAT  ( 4 X , IHW , A2 , A 2 , A2 , 3X ,  1HX,A2 , IHP , A2 , 4X , F 12 . 4) 

LLL3=LLL3  +  ( NP E^YP ( L 3, 2) -NPERYP (L3 , 1 )  )  +  1 

C  =  ALPHA^^LLL3  .  . . . - 

4521  CONTINUE 
455  CONTINUE 


10004640 
-  lIUiD4650~ 
10C04660 
10CC4670 
10004680 

. .  10004690 

100C47C0 

_  1DD04Z10- 

10004720 
10C0473C 
10004740 
10004750 
10C04760 
.  ....  10GC4770 
10GC4780 
10Q04790 
1CG0480D 
10004810 
10G04820 

. 10004830 

10004840 

10C04850 

10004860 

10004870 

10034880 

. .  100.04390 

10004900 
10004910 
10GG4920 
10004930 
100C4940 
..  ..10a0  4950 
10004960 
10004970 
10004980 
100D4990 
10005000 

.  100.05010 

10G05020 
10005030 
10Q05040 
10005050 
10005060 
.  10DQ5070. 

10005080 

.  10005090 

10005100 
.  100.0511Q 

10005120 

. .....10C0S13Q. 

10005140 
10005150 
10CG5160 
10C05170 
10005180 
..  1DD0.519Q 
10005200 
10DQ521Q 
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46  0  COMTTM'J'i 
471  roMTTMUP’ 

r,K;N--p^Tc;  tm*:  o,  X,  ''  Fn*>  '"ACH  PZ^TOD 

440  T.^-NTMHo  +  1 

■.;)n  fCQ  LL=Ifl,NOT 

IF  Y'^TMKLL)  .'^n.  1.!,  TT  T'5  A'^SIJMEH  ALL  THE  VEHICLES  USED  APE 
AVALTAPI.E.  HENPE  NO  rH<^CK  IS  HADE. 

TP  (YPTMT(LL)  .PO.  1  ,  r  )  GO  TO  4*^1 
MY0::M0EPY=>  (LL  ,2) 

IHp  SUPPOUTTHP  yTHTP'^o  sets  the  APPIY  ALTEP  TO  INDICATE  TH^ 
ALTP'^MATT  VES  THAT  A'^E  NnT  AVALIADLE  EOP  USE  IN  PEPIOD  LL. 

IF  ALTPP(<,J)=C  then  ALTEPNATIVE  J  PF  TASK  K  TS  NOT  AVALIADLE  E OP 
USE. 

CALL  YTNTFPP  ( M  V°  ,  nt'>  ,MY» ) 

4U  L=LL-NTMHn> 

DO  4'23  J=1,NV^ 

GEMECftTF  THE  PIIKKLL  Pf^LUMNS 
49j  NVEHU(J)=1 

Dij=MnFOYD(  LL  ,  T) 

DO  E?0  TT=l,MiJ 

TD  =  NnTASK(L,  I  I) 

NA=NTSK(ID) 

K  A  =  0 

no  510  <<=1,NA 

TP  (YPTNT(LL) .EO.  1.*)  GO  TO  491 
TE  (ALTEp’(KK,  in)  .EO,  0)  GO  TO  51. 

401  XA=KA4-1 

no  5ro  Jj=i,NVP 

jsMfiMrH  (  IJ) 

IF(  U(J,'«iTn)  .EO.  b.O)  GO  TO  5  i 
TP  (vavL  (J)  .GT.N'^epyp  (LL,  2) )  GO  TO  5L  0 
UVPMIK  JJ)  =  2 

C=otasK(L,TT)  »U(J,KK,T0)  *YRT'"T(LI.  ) 

WPTTr(4, 13.51)  NOCTOT  ,MO(KA)  ,MP(L)  ,  NP  (  J  J  )  ,  ^|P  (L  )  ,  C 
1351  EOPMAT  (4X,  lHo,:TAe,  TX,  IMX  ,  A  ,  I  HP  ,  A  2  ,  4y,  E12.4) 

TP  (LL.NP.5)  GO  TO  PJC 
TF  (KA.GT.IO)  GO  TO  5CD 

WPTTE ( 5 , 1350 )  NP ( TO) , NP (K A) , N° ( L ) ,  np ( J J ) , NP (L ) ,  D 
135:  F0'5MaT(PH  »  ,  4  X  ,  INO  ,3  A  2, 3X  ,  1H<,  A  1  HP,  A?  ,  4X,  El?. 4) 

5j:  conttnup 

WPTTP(4,1371)  NP  (  TO)  ,  N®  (  KA)  ,r'0  (  L  '  ,  NP  (  T  D )  ,  ^^°  ( L  )  ,  ONE 
MGOL -HCOL+l 

1371  FORMAT  (4X,lHP,3n?,  3X,  IHT , A2, JHP , AD,  4X,  F12.4) 

TF  (LL.NE.5)  GO  TO  PU 
IE  (KA.GT.IO)  GO  TO  510 

WPTTP(5,137G  )  NP  (  TO)  ,  N®  (K  A)  (L  )  ,  NP  (  I D  )  ,  N°  ( L  )  ,  ONE 
137j  EO^HAT(2H  *,4X,  1HP,3  A2,  3X,  IHT  ,  "Z,  IHP  ,  A.?,  4X,  E12.4) 

510  OONTTNUE 
5^0  CONTTNUP 

L  FNP=NorwYP { LL , 2) -nderyp ( LL , 1 ) + 1 

C  NOW  GENP’ATE  THE  XJJILM«  COLUMNS 
no  570  JJ=l,NVO 
TS=NVEHU (JJ) 

GO  Tn(570,52P')  ,  TS 

C  TS=2  INOTOATFS  VEHT^IP  JJ  TS  USED  TN  opoIO'.)  L 


10C;C52?n 
lG:'jr>2  3. 
ICC  'J5?AC 
10LC5250 
1C  t  C5?f  C 
10005270 
ioi.:5?.''c 
IOCOGEOl, 
ICtCGTCO 
inCC5310 
1CC0532.: 

1  jCC5.33D 
1GC0534C 
10005350 
lCCG535i: 

1  {1  'j  o  5  3  7  J 
1DCC5TBC 
100054CO 
10 C 0541 J 
1C0C53OQ 
1CCC54?C 
10CC543Q 
10  0  0541.;] 
1C £05450 
1CGG545C 

10005470 
10  .:-i:'54pn 
1CDC54DC 
10CG550C 
10OC5510 
l'.'.L55?  ■ 
10005530 
1CCC55AC 
10(105550 
10:0555: 
1C''C557G 
lGuG55PC 
10005590 
10:)056:‘ J 
IQ  .:C561C 
1CC0552G 
10005530 
10  .'£5540 
10GC55PO 
10G055f.u 
10005670 
ir:o55«: 
1GCC55": 
10CC57CG 
100Q5710 
lo:05720 

10105730 
10005740 
1LCL575C 
10005750 
10£ £5773 
ic:  J57<»ij 
1DlC57"i; 
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525  J=MAMEN(JJ) 

CALL  YRCOST(J)  .  . - 

C  =  0 

no  526  IS=1,L?:NP 

526  C=C  +  COSTS(TS»l) 

IF(NPERYR(LL,2) .EQ.  LY)  GO  TO  529 
C=C  -  COSTS(LENP,2) 

GO  TO  527  .  . 

528  C=C  -  CnSTSCLENPt?) 

527  WRTTE{4»1391)  NP (JJ) »NO(L) »N®{L 1 ,  NP(JJ),  ONE 

1391  FORMAT  (4X»1MX,3A2,  3X,  4HSUMX,A2,  4X,  F12.4) 

IF  (LL.ME.5)  GO  TO  53G 

WRITE{6,13qO)  NP(JJ) ,NO(L) ,NP(L> ,  NP(JJ),  ONE 
1390  F0RMAT{2H  *,4X, 1HX,3A2,  3Xt  4HSUMX,A2,.4X,  E12.4)  .. 

530  WRTTE(4,1401)  NP( JJ) , NP(L) ,  NO(L) ,  NP ( JJ) , NP (L ) »  ONEM 

1401  FORMAT  (4X,1HX,3A2,  3X,  IHX , A2, IHP , A2, 4X ,  F12.4) 

IF  (LL.NE.5)  GO  TO  531 

WRITE(6»1400)  NPCJJ) ,N“(L) »  NP(L),  NP ( JJ) » NP (L) t  ONEM 
1400  F0PMAT(2H  *,4X, 1HX,3A2»  3X,  IHX, A2,1HP , A2, 4X,  F12.4) 

531  IF  (LL.NF.5)  GO  TO  529  - 

WRITF  (6,1384)  NP ( J J ) ,NP{ L ) , N° { L ) ,NP (L ) , VCOST (  J,5) 

1384  FORMAT  (2H  * , 4X ,1HX, 3 A2, 3 X , , A2, 6X , F12 . 4) 
WRITE{6,1380)  NP ( J J) , NP (L ) ,NP (L )  ,  C 

1380  F0RMAT{2H  • , 4 X , IHX , 3 A 2,  3X,  4HC0  9T,6X, FI 2. 4) 

529  WRITF  (4,1385)  NP ( JJ) , NP ( L ) , N® ( L ) ,NP ( L ) , VCOST (  J,5) 

1395  FORMAT  ( 4X  , IHX,  3A2,3X ,2HPC ,  A2,6X ,  F12. 4). 

WRITE  (4,1381)  NP(JJ) ,NP(L) ,NP(L) ,C 
MCOL=MnOL4-l 

1381  FORMAT  C4X,1HX,3A2,  3X,  4HCnST,6X, F12. 4) 

LP1=LL  +  1 

IF  (LPl  .GT.  NPT)  GO  TO  570 

DO  545  L1=LP1,NPT  . . . 


10005800 

..-inaasBia. 

10C05820 

10005830 

10C05840 

. .  .10005850 

10005860 

_ iaaas87o 

10005880 
10005890 
10C059C0 
...  10D0591Q 
10005920 

_ _ .„.iaXiJ]  5.930  . 

10005940 
10005950 
10005960 
10005970 
10005980 
_  J.a0D5.990 

100060CC 
100C6D10 
10006020 
10006030 
10006040 

_ j.ao.a605a. 

10006060 

10006070 

10006080 

10006090 

10006100 

_ .1001161.10.. 

10006130 


MAKE  SURE  VEHICLE  JJ  IS  USED  IN  PERIOD  LI.  10006140 

IF(  VLIFE(J)  .LE.  (NPERYR (Ll,l)  -  NPERYR (LL , 1) )  )  GO  TO  545  10006120 


NU=NPERYR.(L1,3) 

DO  540  11=1, NU 
L2=L1-NIMHP 
TD=NPTASK(L,  II) 

NA  =  NT'5K(TD) 

DO  535  KK=l,WA 

TF(  U(J,KK,ID)  .NF.  0.0)  GO  TO  5411 
535  CONTINUE 

540  CONTINUE  . 

GO  TO  545 

5411  ALPHA=VCOST( J,4) 

C  =  1.0 
LLL3=0 

DO  5442  L3=LL,L1 
C=-C 

L4=L3-NINHP 

IF  (LL.NE.5)  GO  TO  5443 
WRITE (6, 1400)  NP( JJ) , NP(L) ,NP(L2)  , 
5443  WRITE(4,1401)  NP ( J J) , NP (L ) ,NP (L 2 ) , 
LLL3=LLL3+  ( NOERYO (L3 ,2) -NPERYP ( L3 

C=ALPHA*»LLL3  . 

5442  CONTINUE 
C  =  0 


. 10006150 

10006160 

.  10006170 

10006160 

10006190 

10006200 

.  . .  10  00.6210 

10006220 

_ _ _ _ __10a06230 

10006240  . 

. .  .  100Q6250 

10006260 

. -  .  10  006270 

10006280 

_ 10.00  6290- 

1O0063C0 

. . .  10006310 

NP( JJ) ,NO(L4) ,  C  10006320 

NP( JJ) ,NP(L4) ,  C  . -  10C06330 

1)  )  4-  1  10006340 

_ 1  nnn636n 

10006360 

....  ...  ..  10066370- 
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o  o  o  o  o  o  o  o  o 


LLLl=''|PE‘^r'?(Ll,2) -MP^PYd(LL,  1)  +  1 
no  fiu?  T':=i,(  LLi 
54?  c=n  +  nosTSdSti) 

TP(NnERY'’(Ll,?)  .FO.  LY)  GO  TO  543 
0  =  0  -  OnOTSdLLl,?) 

GO  TO  544 

543  0=0  -  OOOTS(LIL1,T) 

5(44  WRITF  (4,13fi5)  NP  ( J  J  )  ,  (  L  )  ,  ri°  (L  ^)  ,  NP  (  L  )  ,  VOOST  (  J,5) 

WOITE  (4,1351)  K'P  (JJ)  ,NO(L)  ,N3(L  ?)  ,0 

mool=mcol+i 

IF  {LL.MF.5)  GO  TO  5441 

WPITF  (G,138U)  NO(JJ)  ,NP(L)  ,T'°(L?),MP(L)  ,V00ST{  J,5) 

WPTTf (5,13^0)  MP( JJ) ,NP(L)  ,MP(L?)  ,  G 
5441  W='TTF{4,1301)  NP  (  J  J)  ,  NP  ( L)  ,  Mo  (L  2  )  ,  NIP(JJ),  ONE 
TF  (l.L.NF.5)  GO  TO  545 

WPITF(G,17qo)  MP( JJ) ,M°(L) ,NP(L2) ,  MP(JJ),  ONE 
545  OONTTNUE 

MOW  GENE'^'VTF  TWF  SJJLL  OOLUMM 
CALL  NOTH(J) 

WPTTF(4,14H)  NP{  JJ)  ,NP(L)  ,  0 

1411  FORMAT  (4X,  lHO,pA?,5X,  4HC0^T,5X,  F12.4) 

MOOL=MCOL+1 

WPITF  (4,1412)  NO(JJ)  ,ND(L)  ,MO(jj)  ,h]p(L)  ,OME 

1412  FORMAT  (4X,1HS,?02,5X,1HX,A2,1HP,A2,4X,F12.4) 

IF  (LL.N^’.F)  0,0  TO  570 

WPrTE(5,141G)  NP( JJ) ,NO(L) ,  0,  NO (JJ) , NP (L ) ,  ONE 
1410  F0RMAT(?H  »,4X,  1MS,2A2,5X,  4H0n0T,6X,  F12.4,  3X , IHX , A 2 , IHP , A?  , 
*  4X,F12.4) 

570  OONTTNtIF 
63J  COMTINDE 

NOW  0,fnfpaTF  the  PI0,MT-MANn-ST0E  ELFMEMTS 
WRTTE(5,142C) 

1420  FORMATIPH  <^,‘»HRHF) 

WRITE (4,1421 ) 

MCOL=MOOL+l 

1421  FORMAT  (3HRH5) 


GFNERATF  THE  RHS  FPO  °POCUPEMrNT  OOMSTRATNTS 

T A=NRT-NTNHR 
DO  610  1=1, lA 
in=I+NTNHP 

WRITE  (4,1435)  MP (T) , nUDG (IB) 

1435  FORMAT  ( 4X ,4HRHS1,6X,2HPC, A  :,6X,F1?.4) 

WRITE  (6,1434)  NR(T) ,BUOG(IB) 

1434  FORMAT  ( 2H  »  ,  4X , 4HRHS l , 6X , 2H PC , A  2 , 6X , F 1 2 . 4 ) 
61J  CONTINUE 
C 

c  gemfrat'"  the  phs  for  inherited  fleet  rows 

615  TE(MTV  .EO.  0)  GO  TO  653 
DO  640  TT=1,NIV 
JJ=THVN(TT) 

JsNAMFM  (JJ) 

DO  633  T=1,NINHP 


10006380 
10006390 
10:064(3 
10 i 06410 
10006420 
10006430 
1CCi}644'J 
lOi Q64FC 
1C0064F0 
10006470 
10 '■.  0  648  3 
100054RO 
10CC65C0 
1CC06510 
10LG652J 
10006533 
1CCC6540 
10U065F0 
13006560 
13006573 
13u065fi0 
10006590 
10006600 
1(]C0661G 
100C66?a 
10C0663C 
10C06640 
10:06650 
10:,06660 
10006670 
ICO  06600 
10106600 
10 C 067(0 
1DCC6710 
10005720 

1(}  006770 

10006740 
1G006750 
10006760 
10006770 
1000678 j 
IGC  06700 

1  GO  0  68 CO 
10006810 
1CCC6820 
1CC06330 
10006840 
100068^0 
10306860 
1 JC05870 

1C0(j6880 

10C0689C 

10006900 

1000691C 

1CICC6920 

10006970 

10006943 

1C:L695G 
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TF{YftVL(J)  .GT.  NPFRYR(I,2))  GO  TO  630 
ISUH=0 

TftrMflXO  (Y6VL (J)  ,MPEPYR(T,1))  -  YftVL(J)  +  1 
IB  =  NPEPY'5(T,2)  -  YAVL(J)  +  1 
on  620  K=TA,I6 
620  TSUM=ISIJM  +  IMHCJjX) 

IFdSUM  .EQ.  0)  GO  TP  630 

C  =  FLnAT(TSUM)  .  .  . . 

WRTTE(6,l't40»  NP(JJ),  NPM(I),  0 

1440  FORMAKRH  ♦,4X,  4HPHS1,6X,  2HIW ,  A2 ,  IHP  ,  A  2 , 3X »  F12.4) 
WRITF(4,1441)  NP(JJ),  NPM(I),  C 

1441  FOPMAT  (4X,  4HPHS1,6X,  2HTH , A2, IHP , A 2» 3X ,  F12.4) 

630  CONTINUE 

640  continue  .  -  . 

C 

C  NOW  GENERATE  THE  RHS  FOP  THE  TASK  POHS 
650  TA=NINHP+1 

DO  700  LL=IA,NPT 
L=LL-NTNHP 
NU=NPERYP(LL ,3) 

DO  600  K=1,NIJ 
KT=NPTASK(L,K) 

WRTTE(6,1450)  NP(KT),  NP(L),  ONE 

1450  F0RMAT(2H  '^,4X,  4HRHS1,6X,  IHT,  A  •’,1HP,  A2 ,4X,  F12. 4) 
WRITE(4,l‘t'51)  NP(KT),  NP(L),  ONE 

1451  FORMAT  (4X,  4HRHS1,6X,  IHT , A2,1HP,  A2 ,4X , F12 . 4) 

600  CONTINUE 

730  CONTINUE 

HRITE(6,1460) 

1460  FORMAT (2H  *,  6HENDATA) 

WRITF(4,1461) 

1451  FORMAT  (  GHENDATA)  . 

END  FILE  4 

CALL  MATFILL {NROW,MCnL,UB,NVR) 

WRITE  (6,3000)  NROW, HCOL , (UB ( I) , T=1 ,NVR) 

3000  format  (*0  IMPORTANT  DATA  ITEMS  FOR  INPUT  TQ  BBCAVLP  *  / 

A  ♦  NUMBER  OF  ROWS  (INCLUDING  COST)  IS  *,T4  / 

B  *  number  of  columns  (INCLUDING  RHS)  IS  *tI7  / 

C  »  UPPFR  BOUNDS  FOR  VEHICLES  IN  ORDER  FROM  XI  THRU  XN  ARE  */ 
0  (IH  ,10X,F12,4)) 

C 

C  PRODUCE  OUTPUT  LISTING  FOR  DOCUMENTATION  OF  RUN 
C 


10006960 

10D06970. 

10006960 

10006990 

10007000 

10007010 

10007G20 

. 100il703£l. 

10007040 

10007050 

10CG7060 

10007070 

10007080 

10007000 

10C071CO 

10007110 

10007120 

10D07130 

10C0714C 

10007150 

10007160 

10007170 

10007180 

10007190 

10007200 

10007210 

10G07220 

10C07230 

10007240 

1000725D 

10D07260 

10007270 

10C07280 

10007290 

10007300 

10D07310 

10C07320 

10007.330 

10007340 

10C07350 

10007360 

10007370 

10007380 


WRITE 

2010) 

.  1QCQ7390 

WRITE 

(6. 

2020) 

100C74G0 

2010  FORMAT 

(*1 

V 

EHICLE 

VARIABLE 

PURCHASE 

0  AND  M 

R  AND 

D  10CC7410 

V  PETENT 

TON 

YEAR 

FIRST  LIFE 

IN^) 

10007420 

2020  FORMAT 

N 

AME 

NAME 

COST 

COST 

COST 

10007430 

‘  PATE 
TY  =  SY 


AVAILABLE  YEARS*) 


C 

C 

C 


LIST  VEHICLE  VARIARLE  NAME,  AMD  COST  DATA 

DO  800  1=1, NVR 
IT=NAMEN(I ) 

WRITE  (6,2030)  VNAME ( IT) , NP ( I) , ( VCOST ( II , J) ,J=1,4) ,YAVL(JI) , 
*VLTFE( II) 

2030  FORMAT  ( IHO , 4X, A8 , 7X , IHX, A2, 4 {F8 .4,4X) , 2X, 14 , 8X , 12 ) 


10037440 

10D0745D 

10C07460 

10007470 

10007480 

1000T490 

10007500 

10007510 

1CCC7520 

10007530 


oooooo  non  ooo 


IF  (Y<\VL(TI)  .LT.TY)  TY  =  YAVL(TI) 

800  nOMTTNUE 

OESC^TRE  the  TMHFPTTf^n  FtFET 

IF  (TY.EQtSY)  GO  TO  ^2i 
WRTTP  (G,?&4C) 

204U  FOpmat  (♦-  OO^pomeMTS  OF  THE  TNHFPITEn  FLEFT») 
TF  (  CSV-IY)  ,GT.  ?n)  TY  =  <>Y-?n 
no  810  I=IY,SY 
lT=T-IYfl 
810  YEfiP(IT)-I 
tmhyps=sy-iy 

WPJTE  {G,?05C)  (YFAP(I) ,I=1,TNHYpS) 

2G5j  FOpmat  (1H0,?0X  ,?r  (Tp^)  ) 

NA^NVP-NTVf 1 
no  820  1=  IjMVP 
J=MAMFM(I) 

TF{ YAVL  (J)  .GF.SY)  GO  TO  820 
KK=YAVL (J) -TY 
00  .81«5  K=1,TNHYPS 
TF  (KK.LT.K)  GO  TO  814 
YEAP(K) =0 
GO  TO  815 
614  K1  =  K--KK 

YEAP(K) =IMM( J,K1) 

815  COMTTNUF 

WPITE  (Gt206C )  HP(T) , <YEAP(K) ,K=1,TMHY PS) 

2060  FOPMAT  (15H  OF  X  ,  A 2 , 4  V  ,  2G  ( 1 5  )  ) 

6?n  OOMTTMUE 


1[‘^l:7S4  } 
IDt C  75FG 
10CG756C 
100C/57C 

lOb-J^EPO 

100075^0 
1C0C76C0 
10(i0761C 
10007620 
10  •:  0  7633 
10007640 
1CCC76*^G 
10007660 
10C3767D 
1CCC768G 
1CC076OG 
10007700 
10C0771C 
10CG7720 
1GG07730 
10007740 
1CC077EG 
iaC0776Q 
10GG7770 
10007780 
10007790 

io:o78ro 

1GCC781CJ 
10C0782Q 
IGC  j763C 


10007640 

FOP  EACH  PFRTnO  ,  I  TST  ALL  OF  THE  APPLICA'^F  TASK  MATRTCES  101078‘^G 

10CG7860 

621  IA=HTMHp+1  10007670 

DO  850  T=IA,NPT  1000788C 

WPTTF  (6,2070  NP'^PYP  (T  ,1)  ,MPEPYP(T,2)  lPtC78Q0 

2070  FOPMAT  C^SH-  tasks  REOUIPEO  IN  pfRTDO  fpqM  ,T4,9H  THPOUSH  ,I4)10G07OCu 
M=npppyR(I,3)  10007910 

on  845  J=l,M  103079?^ 

IM=I-MTHHP  10CC7930 


JJ=HPTASK(TM, J) 

WPTTF  (6,2080  mp(JJ),  PTASKdM,)),  YPINT(T) 

PG60  FOPMAT  (1H0 , 6y , ♦task  ^,A2,^  -  PERFORMED  RY  ♦,F5.2,^ 

♦T(S),  WITH  SCALE  TACTOP  FQUAL  ♦,F5.3) 

TT=C 

TF  (Y<^INT(T)  .ME.  1,0  GO  TO  845 
WPTTF  (6,20P0> 

2090  FORMAT  (IH  ,6X,1M^) 


10007940 
10007950 
FOPCF  plEMEN10oG796u 
1CC0797G 
10007980 
10007990 

locoaoco 

10(06010 


OFTFominf  WHTCH  V^hTCLFS  are  used  in  each  TASK  ,  JJ . 

(I=PFRTOn,  K=VEMICLE,  II=NUMBFP  of  vehtcles  used, 
KK  =  NUHRE'^  of  ALTERNATIVES) 

KK=MTSK(JJ) 

DO  870  K=1,MVP 
MrNAMFM (K) 
no  829  L=1,<K 


10G08020 

10008070 

10018040 

lO.CBuBC 

1GCC8G60 

10008070 

lGa8CP»: 

10008090 

100G81CC 

10OG811O 


D-15 


o  o  a 


flzq 

830 

2100 

2110 

2120 


831 

2131 

832 

2132 

833 

2133 

834 

2134 

835 

2135 

836 

2136 

837 

2137 


838 

2138 

839 

2139 

840 

844 

845 
850 


IF  (U(N,L, JJ) .EO,C)  GO  TO  829 

II=TI+1 

NL(1T)=MP(K) 

NM(IT) =N 
NAME9( TI)=K 
GO  TO  830 
CONTTNUF 
CONTINUE 


WRITF 

(6,2100) 

(NL (K)  ,K=1,II) 

FORMAT 

(IN  ,7X, 

IIM*  VARIABLE  ,10  (3X,1HX,A2) ) 

WRTTF 

(6,2110) 

FORMAT 

(IH  ,8X, 

9H*<^»**»»**) 

WRITE 

(6,2120) 

format 

(IH  ,6X, 

IIHALTERNATIVE) 

FILL  IN 

TASK  MATRIX 

DO  844 

L=1,KK 

DO  840 

K=1,TT 

N  =  NN{K) 

GO  TO 

(831,832, 

833,834,835,836,837,838,839) ,K 

WRITE 

(6,2131) 

L,U{N,L, JJ) 

FORMAT 

(IH  ,15X 

,T2,2X,F5.C) 

GO  TO 

840 

WRITE 

(6,2132) 

U(N,L,JJ) 

FORMAT 

(1H  +  ,25X 

,F5.0) 

GO  TO 

840 

WRITE 

(6,2133) 

U(N,L, JJ) 

FORMAT 

(IH  +  ,31X 

,F5.0) 

GO  TO 

840 

WRITE 

(6,2134) 

U(N,L,JJ> 

FORMAT 

(1H4-,37X 

»F*^,Q) 

GO  TO 

840 

WRITE 

(6,2135) 

U{N,L,JJ) 

FORMAT 

(1H+,43X 

,F5.0) 

GO  TO 

840 

WRITE 

(6,2136) 

U(N,L,JJ) 

FORMAT 

(1H  +  ,49X 

»F5.0) 

GO  TO 

840 

WRTTF 

(6,2137) 

U(N,L, JJ) 

FORMAT 

(1H+,55X 

,F':.0) 

GO  TO 

840 

WRITE 

(6,2138) 

U(N,L,JJ) 

FORMAT 

(lHt,61X 

jFF.O)  _ 

GO  TO 

840 

WRITE 

(6,2139) 

U(N,L, JJ) 

FORMAT 

(1H+,67X 

,F5.0) 

CONTINUE 

CONTINUE 

CONTINUE 

CONTINUE 

STOP 

ENO 


10008120 
....  .  100  08130 
10008140 
13008150 
10008160 
-  10008170 

10008180 

_ 1Q,D0j61.90  . 

10C082C0 
10G08210 
10008220 
1C0Q8230 
10008240 
...  1D0082S0. 

10C08260 
10C03270 
10G08280 
10D0829C 
10CC83C0 
10008310 
1QC08320 
10C08330 
10C08340 
10003350 
10CC8360 
...  10003370 

10008380 
10008390 
13008400 
10003410 
10008420 
.  1QC03430. 
10008440 
10008450 
10008460 
1C0C3470 
10008480 

_ _ 10  00.3490 

10C08500 

10C08510 

10008520 

10008530 

10008540 

_ 1Q0C3550 

10008560  • 
10008573 
10008580 
10003590 
1CC086C0 
.100086.10 
10C08620 
10008630 
10C08640 


SUS=>OUTTNE  MaTFTI  L  {M,M,IJB,MVP) 
niMENSIOM  i?VflL(l?C)  ,'’NftME  (120) 
nIM^^4SInN  IPOWTPdCG) 
niMENSTON  UP(t) 

OOTA  IT.TI  f  IHTtlMI  / 

DATA  C  /  /HEDLUMMP  /,R  /  ,3HRHS  / 

T  =  G 
j=n 

on  Aco  K=i,ico 
AuJ  IPOWTO(K)=0 
PEWT('0  4 

WRITE  (Q,7 00  0  )  M,n,  (UBd)  ,I=1,NV'’) 

7030  FOPRAT  {2Ifi/ (liFlE.t.)  ) 

oFAn  (4,4000)  nuRi,nuM2 
IF  (EOF, 4)  120,1 

1  RPITF {q,4P0n )  nUM1,DUM2 
4  j  J;  FOPMAT  (A4 , 1C:  X,  A'') 

"EAD  (4,4100)  OU’^’ 

41u0  FOPHAT  (A4) 

DO  10  T=1,M 

PFAO  (4,4200)  PMAMF(t) 

4203  FORMAT  (4X,A7) 

ENCOnc:(l,qC0D,ITEMt>)  PNIAMF(I) 

IFdTEMP.Frj.TT.OR.ITPMO.EO.II)  IpOWTP(  T)  =4 
9003  FORHAKAl) 

IF  (EOF, 4)  120,10 
lu  oonttmue 

PE An  (u,4300)  DUM4 
4330  FORMAT  (A7) 

IF  (DIJM4.E3.0)G0  to  20 
WRITF  (6,4400)  0UM4 

4400  FOPMAK*  IMOPPPEOTLY  PEAT  FILE - COLUMNS  ofaD  AS  *,A7) 

PETIJPM 

20  READ  (4,4500)  CNAmE, pTEMP , VAL 
4500  format  (4X,A7,3X, A7,7X,F12,4) 

WRITE  (6,5Ct'C) 

5303  format  (»!  RFFEREMCF  LIST  FOR  COLUMN)  NUMREPS  AND  NAMES*) 
WPTTF{6,61D0)  ( IpoWTP(K) ,K=1,M) 

WPTTF(q,E)000  )  (  IpOWTp  (K)  ,  K  =  l  ,N) 

6003  F0RMAT(T12) 

6100  FOPMATdH  ,10011) 

L  =  1 

DO  too  J=1,M 

r,0  TO  (21,22,  23,24,25)  ,L 

21  WPITF  (6,5100  J,CNAme 
5100  format  (1H  ,4X, T5,4X, A7) 

CO  TO  26 

WRITF  (6,5200)  JtCNAME 
5200  FORMAT  (1H+,24X ,I5,4X,A7) 

GO  TO  26 

23  WRITF  (6,5300)  J,CNAME 
5700  FORMAT  (lH+,44X,Tc,4y,fl7) 

GO  TO  26 

24  WRITE  (6,5400  J,CMAMF 
540C  FOOMAT  dH  +  ,  64X,T5,4y,A7) 

GO  Tn  26 

25  WRITE  (6,55CG)  J,CMAme 


10 jC«65j 
10CC'«660 
10003670 
100006^0 
10006650 
1CC067CC 
10D06710 
lC:u6723 
10008730 
10(108740 
10008750 
10 '^('8760 
10008770 
1CCC8750 
100087RO 

10oJ88i,  0 

1G03881 0 
1C0C852G 
100C8830 
10:.G884  j 
10008850 
1CCC8860 
10008870 
10008883 
10(;C88gO 
1C0089CC 
1CC08910 
ICi j«92) 
10008970 
1C( C894C 
100C8950 
10538960 
10(08973 
10008980 
10CC899C 
100C90C3 
10309C10 
1CCG902U 
13CC9C‘'0 
133C9C4C 
10CCR050 
100C9060 
1Q(;D9070 
10009080 
10009090 
10009100 
10009110 
10009123 
10009130 
10C09140 
10009150 
10i3916C 
1GCD9170 
10009180 
10009190 
10(09200 
10009210 
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5500  FORMAT  (1H4-,  84y,T5,4y,A7) 

26  L=L+1  . . 

TF(L.GT.5)L=1 
HRTTE(7,5700)  J,CNAMF 
5700  F0RMAT(I5,4X,A7» 

00  30  1=1, N 
30  RVAL(I)=--0.0 
40  DO  50  1=1,  N 

TF  (PTEMP.NF.RNAMF(l) )  GO  TO  50 
RVAL(T)=VAL 
GO  TO  60 
50  CONTINUE 

60  IF  (J.NE,(M-1))  GO  TO  30 

IF  (I.NE.N)  GO  TO  80.  .  . 

READ  (4,4600)  OUM5 
4600  FORMAT  (A3) 

TF  (EOF, 4)  120,70 
70  TF  (DUM5.EQ.R)  GO  TO  80 
WRITE  (6,4700)  CNAME 
4700  FORMAT(*  THE  M-1  COLUMN  HAS  *,A7,* 
RETURN 

80  READ  (4,4500)  CTEMP,RTEMR , VAL 
IF  (EOF, 4)  120,00 
go  IF  (CTEHP.EQ. CNAME)  GO  TO  40 
CNAME=CTEHP 

WRITE  (9,4800)  (RV.AL  ( K)  ,K  =  1, N) . 

4800  FORMAT  (F12.4) 

100  CONTINUE 
END  FILE  9 
END  FILE  7 
RETURN 

120  WRITE  (6,4900)  J,I  . 

4900  FORMAT (*  REACHED  EOF  WHILE  WRITING 
RETURN 
END 


10009220 

. . . . . . 10110  9230. 

10009240 

.  ....  100C9250 

10009260 
...  .  10  0  09270 

10009280 

_ _ UJima29£L. 

10009300 

10009310 

10009320 

10009330 

10009340 

.  .  . . lilJQC93£0. 

10009360 

10009370 

10009380 

10009390 

100C94C0 

, UNABLE  TO  FIND  RHS.  HARK*) _ .....10  009410 

10009420 

10009430 

10009440 

10009450 

10009460 

• _  _  . . . . . 10009470 

10009480 

10009490 

10009500 

10009510 

10009520 

_ _  ...  ..  . . 10009530 

COLUMN  *,I7,*  AND  ROW  *,I4)  10009540 

10009550 

10CQ9560 
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SURPOUTTME  YPCOST(J) 

A  SURPOUTINF  TO  COMPUTE  THE  OoppATTNG,  SALVAGE,  AND  TPUNCATTON 
COSTS  YPAP  BY  YFAP.  ALSO  THE  YFAPL'^  MOTHBALLING  SAVING  IS  COMPUTFC 
COMMON  /VECSTG/  VMAM^^-dO),  C,LEMP,  VLIEECID),  INHdQaft), 

^  VC0ST(1C,5),  NAMTHdO),  G0STS(33,?) 

TNTFGEP  VNAME,VLTFr 

ASSUME  THE  OPERATING  Amo  MAINTANCE  COST  ImgpEAOES  AT  P^lOO  PEP-CENT 
A  YPAP  (NOT  A  COMPOUND  ^^ATE  INCFASE) 

P  =  D.D 

LET  X=  THE  1ST  YEAR  (.  AMO  M,  COST.  THEN 

Xf  (l  +  P)^y+(  +  ?»R)  ♦Vi-  .  .  .  + (l  +  0^^9)  ♦X=VCOST(  J, 
X=  VCOST(J,2) /(IQ  .0  ^  45.!]»R) 

ASSUME  NO  PERIOD  IS  LONGEP  THAN  6  YEARS. 

IB=VLTFE(J)  flO 
DO  10  T=1,IB 

COSTS(T,l) =(1.Q  +  FLnAT(I-l)^R)^X»(VCnST(J,4)«»(T-l)) 

lU  continue 

ASSUME  THE  SALVAGE  VALU^  OF  A  VEHICLE  AFTER  I  YEApS  OF  SERVTCF  IS 
(ALRHA)^^I  ♦PURCHASE  COST. 

alrha=o.e 

Y=VCOST  (J, 1) 

DO  20  T::l,IS 
Y=  ALPHA^Y 
COSTSd  ,2)  =Y 
20  CONTINUE 

ASSUME  TRUNCATION  AFTER  TYEARS  OF  SERVICE  IS 
(VLIFE-T>^ (PURCHASE  COST) /VLIFE 

Y  =  VCnST  (J, 1) /yLIFF(J) 

no  so  1=1, TB 

TX=:VLIFE(J)-T 
IF  (TX.LT.O)  TX=0 
COSTSd, 3)  =IX^Y 
30  continue 
RETIJPN 
ENTRY  MOTH 

ASSSUMP  THE  moTHBALLTNG  SAVTMG  TS  Rl^lCO  PpR  CENT  OF  THE  FIRST  YCAp 
Rl=n.90 

n=o 

DO  54G  IL=1,LENP 

54G  C=C-G.l»Pl»VCnST(J,2) ♦VC0ST(J,4) ♦♦(TL-1) 

C  =-X  ♦  R1 

C=-VCnST(J,2) /(IC.C  +  45.0»P)  ♦  R1 

PFTUPN 

FNO 


10G0B63G 

10CG3B40 

.  10C036E0 
lOQO^GFC 
1DLG^G7C 
lOCG^BPC 
1000^690 
1000^710 
1CL06710 
1000^720 
lCCC^73u 

?)  1C  L‘Cfl7i,ij 

inC087EO 

1CC087F0 

1GGG8770 

10008780 

10008790 

100G88C0 

1C0G8810 

10008820 

10008830 

lGCGa8C0 
100088E0 
lCnG887G 
irC088^0 
10008890 
10008900 
10LG8910 
1C10R920 
10LG893C 
10rCR940 
10GG89E0 
1CG089F0 
10008970 
10008980 
10  JC8991) 
lGCfG9CCG 
10CO9Gj0 
COST-X 


1CCC90P0 

100090^0 
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SURROUTIME  YINTE'?P...(NVR,NTR,NyP)  ... 

COMMON  /TSKSTG/  U{7,?8«,9)  ,NTSK{  9) 

COMMON  /  ftLTSTG  /  ALTER {286»9) , Y AVL (IQ ) 

INTEGER  ALTER 
INTEGER  JSUBdO)  ,YAVL 
DO  20  1=1, NTR 

N=NTSK(I)  . .  .  . .  ...... 

DO  10  J=1,N 
10  ALTER(J,T)=1 
20  CONTINUE 

DO  30  1=1, NVR 

IF  (YAVL(I> .LE.NYR)  GO  TO  30 

IVR=I  . -•  . 

GO  TO  40 
30  CONTINUE 
RETURN 
40  L  =  0 

DO  50  J=IVR,NVR 
IF  {YAVL(J) .LE.NYR)  GO  TQ  50 
L=L+1 
JSUB(L) =J 
50  CONTINUE 

THE  SET  OF  VEHICLES  WHICH  WILL  NOT  EXIST  IN  YEAR  NYR 

HAS  BEEN  DEFINED  -  NOW  HE  WILL  ORDER  THE  SET 

IN  THE  REVERSE  OF  THE  ORDER  TN  WHICH  THEY  WILL 
BE  DEVELOPED . 

DO  70  I  =  1,L 
N  =  I 

K=JSUB(I)  .  . - 

DO  60  J=N,L 
M=JSU9(J) 

IF  <YAVL(H) ,LE. YAVL(K))  GO  TO  60 

JSUB(J) =K 

JSUR(I)=M 

K=M  . .  . . — 

60  CONTINUE 
70  CONTINUE 

FOR  EACH  TASK,  HE  WILL  DEFINE  THE  SET  OF  ALTERNATIVES 
WHERE  THE  7NON-EXTSTENT#  VEHICLES  ARE  DOING  ONLY 
THOSE  TASKS  WHICH  ARE  THEIR  PRIMARY  RESPONSIBILITY, 
THAT  IS,  WHERE  THE  REQUIREMENT  FOR  THEM  IS  A  MINIMUM 

DO  150  1=1, NTR 
N=NTSK(T) 

DO  140  JJ=1,L 
J=JS.UB(JJ) 

VMIN=9999. 

DO  100  K=1,N 

IF  (ALTER(K, I) . EQ. C)  GO  TO  103 
IF  (U(J,K,I)  .LT.VMIN)  VMIN=U ( J,K  ,1) 

100  CONTTNUE 

DO  130  K=1,N  .  .  - .  .  - 

IF  (ALTER(K,I) .EO.O)  GO  TO  130 
IF  (U(J,K,I) .EQ.VMIN)  GO  TO  130 


_ _  10010040 

10010050 

10010060 

10010070 

. 10010080 

10013090 
_.  __lflELliU.OC 
10010110 
10010120 
10013130 
10010140 
10010150 
.....  10  D1 0160 
10010170 
10010180 
10010190 
10010200 
10010210 
.1001.0220 
10010230 
10010240 
10010250 
10C1026Q 
10010270 

.  10010280 

10010290 

10C103C0 

10010313 

10010320 

10C10330 

_ 10010340 

10013350 

10010360 

10010370 

10010380 

10C10390 

_ J.001Q400 

10010410 

10010420 

10Q10430 

10010440 

10010450 

_ 10010461. 

10010470 

10010480 

1CC10490 

10010503 

10010510 

. .  1DC105Z0. 

10010530 
10010540 
1CC13550 
10010560 
10010570 
_. ..  ..millDSfiJl 
13010590 
10010600 
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ALTF°(<,T) =c 
l.'^O  CONTTMUF 
143  nOMTTNUE 
I'ja  CnMTTMUE 
oftdpn 
FMn 


1CG1C610 
1011'362': 
10C10P.30 
1C01D640 
iccice'^c 
IGCl C6FC 
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c 

c 


c 


c 

c 


c 


program 

BBCA 

1  TAPE3» 

TAPE7, 

2  TAPF9= 

TAOEA) 

BELLEn 

COMMON 

COMMON 

/ 

CVl 

COMMON 

/ 

CV2 

COMMON 

/ 

CV3 

COMMON 

/ 

CV4 

COMMON 

/ 

CV5 

COMMON 

/ 

CV7 

COMMON 

/ 

CV8 

COMMON 

/ 

CV9 

►.TAP£2, 


/  IP(12) ,RP(12) ,TMP  (10) 

/.  T(lDQ  *ifl)-»BO(.ti]Q-)  ,BLD(ia)  ♦ULO  (101  - 

f  H,N,NnF,PHIT,UZ,USP»USM,EKO,HPLUS 
/  IX(110),X(110) ,IXZ(110) ,X7(110) ,XCON(10) ,CQST 
/  Sir’MA(100,4)  ,TSir,  ,LSTMAX 
/  NPHASE,NFl,CFX,IO”T,NOP,NOPS,NEWXZ 
/  NXPK,XK,NOBOL»EKBL (25) 

/  PSIGL(25)  ,NXBL(25)  ,XNXBLI25)  ,aLISI(2S^lJ:i).  . 


CaHMON/THX/TMn,EXT,TITLE (4) 


INTEGER  UB,CI,BV 

DIMENSION  TSTO  (130  ,LSTFRE{25) 

DIMENSION  RLT(IO) ,ULT(10) ,CT(ia) 


7  READ(5, 4448) (TITLE(I) *1=1,4) 
IF(EnF,5)l,2 

1  END  FILE  8 
STOPD003 

2  CALL  PAPAMS 
PP(12)=0.0 
IP(q)=25 
NFREF=0 

CT  =  4 
UB  =  3 

LB  =  2  . 

BV  =  1 

MNC  =(-i)  *  NCF 
MNX  =  (-1)*  N 
EPSI  =  RP(l) 

NORA  =  IP(2) 

MPLUS=NORA(-NCF 
NOPS  =  1 

NCF4  =  NCF  »  3  +  NORA 

CALL  REAOIN 
CALL  80X1 

SOLVE  1ST  LP-PROBLEM 

55  CONTINUE 
US  =  USP 

IF(  UZ  .LT.  0.0)  US  =  USM 
IF  (NQP.GE.IP  (12) ).  GO  TO  4444 
LSTMax=HAXO(LSTMAX,NnBnL) 
PMIN=1.E20 
DO  3000  I=1,N0BPL 
IF(PSIGL (I) .GE.PMIN)  GO  TO  3000 
PMIN=PSIGL (1) 

NMIN=I  .  . . . 

3000  CONTINUE 

IF(PMIN.LT.US)  GO  TO  3020 


.„_20JlDil010_ 
20000020 
.  .  20000030 
20000040 
20000050 
20000050 

_ 2111)00.070.-. 

20000080 
20000090 
20000100 
20000110 
20000120 
20000.130. 
20000140 
-  20L00150 

20000150 
20000170 
20003180 

.  . 20000190 

20C0D2C0 
20D00210 
20000220 
20000230 
20CC024Q 
. 20O.0.02S0 
20000260 
20D0027G 
20000280 
2000C290 
20000300 

. _20-ail03U  - 

20000320 
20CC0330 
20000340 
20000350 
20000360 
2.00  00370 
20000380 
20000390 
20000400 
20000410 
20C00420 
20000430 
20000440  . 
-  20000450 

20000460 
20000470 
20C00480 
...  20000490-. 
20C005CO 
20000510 
20C00520 
.  20CQ0530 

20000540 

_ 20.0005.50. 

20000560 
20000570  . 
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WPITrcevjlC  1C) 

^01!)  F^oMfiT  { IH- ,  lt«MoP0PLF'^  S^ILV/FO) 
GO  TO  4446 

(^'HT'J)  =1  .fr2r 
MCDEr  =  MrPP  E<- 1 
LSTFPC  (NF??^E ) 

WX9K=NXnL(  M»^IM) 

EKOrEK^lL  (MMIH) 

XK=XPX'^L  (M>^IN) 

on  ’CIO  J=1,N'^F 
jl=pnpa+j 
J2  =  NFF4-J1 
j3=MrFfj? 

RLP(J) =RLTST (MMIM, Jl) 

ULP(J)=RLTST(MMTM,J?) 

3T-5J  Ca(J)  =nLlST  (NMTP,  J3) 
on  3040 

3u4t  Rn(J)  =Rl,IST  (NMTN,J) 

INDTC=l 

RRK  =  -ILDCMXRK) 

IJRK  =  ULn(MXRK) 
r 

c 

on  10  T  =  IfMPF 

TMO(T)  r  C.C 

RLT(I)  =  G.C 
ijlt(T)  =  o.n 
nr (T)  =  c .0 
10  cnHTiMue 

on  30  I  =  1,MCF4 


PEDEFINP  stoma  fop  lST-LP-°n  I 

^0  TSTOd)  =  O.C 
MMIM=Kjnoa-i 
on  RF?  T=1,MMTM 
562  SIFMfld.PV)  =  BP(T) 
on  553  T  =  1, 

Sir, PACT, LB)  -  PLOIT) 
SIG^^Ad.UB)  =  ULn(T> 
STGMftd,CI)=  end) 

553  CnMTTNUE 

XKSTO  =  XK 

0 

XK  =  XK  -  nOK 
C 

STG^A (MXBK, UB) =  XK 
TSTG  =F<T 

SIGMfi  (MOPR  ,By  )  =-T5iri 

OniMOPR) =-TSTG 

f) 

gLT(MXBK)=  STGM.a  (hx'’K,LB) 
UL3(MyBK)=XK  +  BLT(MXBK) 

C 

G 

BL0(MXBK)=RLT (HXBK) 

IJLO  (MXBK)  =XK 
ORLL  GFTC  (MXBK,nLT,ULT,CT) 


'.M  Kn-ORTR 


SET  X(K)  =  Y(K) 

SET  UPPEP  BOUMO  =  Y(K) 


SLOPE  OF  X(NXBK)  10  TO  XK) 
SHTFTFO  BIGHT  BY  BLT(NXBK) 


2C  C  CC5PC 
2c:0'5no 

231 J06t3 

20CC.C610 

20CL062C 

20C00670 

20C00640 

23CC065J 

20C0C650 

20000670 

201,0  0603 

2:<L0D6°C 

20GCC7CQ 

20000710 

20.'  0  3 729  ■ 

20CCG73O 

20900740 

20000750 

20:0  076  9 

2Q:00770 

20 00 C 700 

20000790 

20nOiJ«u  J 

20C9 jBlC 

2CCC0RPC 

?onoc?‘io 

20090049 

20C0G65Q 

2CCC0950 

2CL00«7n 

2C  j0u«9l} 

20103900 

20000910 

2CGQ08FC 

20000920 

20000930 

20900940 

200009*^0 

20000950 

20  901970 

2CI9D09PU 

20CC09O0 

20001000 

23001019 

2GC01023 

20C  01030 

2C00114C 

29001050 

20C01C60 

2CGC1070 

200010PD 

20001099 

200Q11CO 

2CC0111C 

20001120 

23001133 

2CCC1140 

20CC116C 
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STGMAfNXBt<,CI)  =  CT(NXBK) 

C0(NX9(<)=CT(NXBK1  . . . .  . .  . - 

NOP  =  NOP  ♦  1 

SOLVE  K  PRIME  LP  PROBLEM 

no  5555  TND=1,MPLUS 
X(rNO)=0 
5555  IX(TND)=0 

CALL  TABOUT  <1)  ..  .  . . 

NCF1=NCF 

NF1=0  -  . 

CALL  LP  CNOPA ,N,NrFl) 

CALL  TABOUT  (2> 

CALL  TIMEC 

COSTl  =  COST  . . 

IF (MFl  .NE.  1) GO  TO  90 
57  CONTINUE 

DO  6665  J=1,NCF 
TMP(J)=0 

6665  XCON(J)=0 

DO  6666  IND=1,MPLUS  -•  - 

IF  (IX (INO) .GT.NCF  .OR,  IX (INO) . FQ. 0)  GO  TO  6666 
ICOL-IX(IMD> 

TMP(ICOL)=X{INO) 

X (INO) =X(INO) +BLO (TCOL) 

XCON(ICOL)  =X{IND) 

C  DEFINE  X(K)  FROM- Y.iK)  -  . 

6666  CONTINUE 
IN0  =  C 

00  6677  J=1,NCF 

IF  (BLO(J)«EQ.  0.0)  GO  TO  6677 
TF  (XCON(J).6T.O.C)  GO  TO  6677 

XCON(J)=BLO(J) .  . 

IX(MPLUS-IND)  =J 
X(MPLUS-IND)  =RLO(J) 

INO=TND+l 
6677  CONTINUE 

RP(12)=COST-TSIG 

on  6667  U=1,NCF .  .  - .  . . 

6667  RP(12)=RP{12)-TMP(J)*CO(J) 

NOPS  =  NOPS  1 
MNX  =  (-N) 

CALL  TIMEC 

C  EVALUATE  OBJECTIVE  F(X) 

CALL  GETPHI  (MNCjXCONtTMP,PHTT)  ...  .  _  . 

CALL  TIMEC 
C 

WRITE(6,573)  PHIT 

573  FORMAT(1HO,11HOHI(XADJ)  =,1PE1B.7) 

IF  (TP(ll) .EQ.l) 

♦WRITE  (6,575)  (TX.(I).X(I), 1  =  1, MPLUS)  ..  .. .  . 

575  FORMAT  (1H0,5(7H  COL  ,I4,2H  =,F12,4)) 


IF (PHIT  .GE.  U2)Gn  TO  70 
C  PHIT  .LT.  UZ  FOR  IST-PRORLEM 

C  . 

U7  =  PHIT 
DO  5P  I=t,M»LUS 


20001160 

_ 200  01170- 

200011PO 

20001190- 

20001200 

..  - . 20001210 

2000122C 

_ _ 20  0Q±230. 

20001240 

.  2000125C 

20001260 

. 2C0G1270 

20001200 

. .  . 20001290 

200013C0 

20001310 

20001320 

. 20001330 

20001340 

_ _  20001350 

20001360 
.  20001370 

20001380 
20001390 
20001400 

- _ -.20X01410 

200C1420 

20001430 

20001440 

.20001450 

20001460 

_  20001470 

20001480 

20001490 

20001500 

20C01510 

20001520 

_ _  _  20001530 

20001540 
.  20001550 

20001560 

. 20001570 

20C015B0 

_ _  ......  2000 1590 

200016CO 

20001610 

20001620 

200D163D 

20001640 

. -20001650- 

20001660 

.  20DC1670 

20001680 

20001690 

20001700 

. 20001710 

20C01720 
.  .  20001730 
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IXZ (T) =IV(I) 

X7(T)  r  Xd) 
wrMX7=i 

IJSP  =  (U7/(  1  .0  +  fP'^T)  ) 

U'tM  =  (U7/(  1.0  -  PP'^T)) 

■  US  =  USP 

IF(>I7  .LT.  C.Oir  =  USM 
7  0  COMTTM'JP 

TFcnrisTi  .SF.  us)r.o  to  oo 

CALL  MXPPN(XOnM,  STOMA,  MXO) 

ISOj  TF(NF9FF.LE.C)  cn  TO  200C 
M0L=LSTFPF (MFPEE) 

NFOEF=MFOEr-l 

r,n  rn  2010 

20& j  NOOni  =NOROL  +  1 
MnL=MoonL 

IF(MOqOL.LE.  IP(0)  )  GO  TO  201;; 

WPTTF(6,2G20» 

2020  FOPMAT (1H-,»RLIST  S17F  EXCEEDEP*) 
r,n  Tn  itUUf, 

2ClJ  pSIGL (MOL) =COST 
MXOL{MnL)=NXP 
EKRL {MnL)=TSTG 
XNXOL (MOD =XrON (WXP) 

00  2CT0  J=1,W0F 
JlxMOOA+J 
J2=MnF+Jl 
JT=MrP+J? 

RLISKMOL,  Jl>  =STO‘*A(  J,LR) 

PLTST(MOL,  J2)  sSTC-ma  (  J,UR) 

2030  PLISKMOL,  J7)  =ST0MA(  .(,01) 
no  2040  J=l,MOOfl 
2043  RLTST(M0L,J  )  =S  TOma  {  j  ) 

IF(TM0T0.EQ,2)  go  to  55 
9u  COMTTMijF 
IMDIO=2 

no  PI  I  =  ItMOF 
BLT(T)  -  C.C 
ULT(I)  =  C.C 
CT(I)  =  O.D 
TMP{T)  -  C.C 
91  CONTTMiJF 

n 

rfDFFTNF  sigma  fop  pmD-LP-oB  from  <0-nATA 

DO  P5  TrltNMTM 
STGMA(T,BV)  =  eO(T) 

STGMA(I,9V)  =  STGMA (I,9V) -  (  T ( T ,NXBK) ♦XO 
PO(T)=STGMA(I,BV) 

95  OOMTTMUE 

00  06  I  =  l,MOF 
SIGMA(T,LR)  =  PLP(I) 

SIGMA(T,UB)  =  ULP(T) 

STGMA(T,nT)  =  ro(t) 

nEFTNF.  LOWEP  ROUNO  OF  X(<) 
IF  ORX  -  C 

95  COMTTMUE 

C  SFT  UPP^P  BOUMO  OF  Y(<). 


20GC1743 
2CC0175C 
20(,C17f  C 
20f C177C 
2CrC17P3 
2C0C17Ob 

2nooi8rn 
2Cu3l8n 
2CCD182C 
20i)ClP3C 
20^018^*0 
20  :■  3 1850 
20C018fO 
200&187G 
2oroiBpn 

20.00 1 8Q0 
20001000 
20CG19U 
20C0192D 
20CU1930 
2C(.G194G 
2000195C 
20801950 
20001973 
2C0C19PC 
2C001R90 
20002000 
2o;c2Jia 

2CCC2C23 
20CC2C3C 
20002040 
2G3G2050 
2Q002353 
20C0207G 
20002080 
200G2CaC 
20uC21tG 
20C02110 
20002120 
23032173 
20C02140 
20C02150 
20002150 
20C-02170 
20C321BQ 
23002190 
20-302200 
20002210 
20302220 
2CC32230 
20002240 
2CC02250 
2CbC22f 3 
2C0Q227C 
20002280 
20002290 
2000231  0 
20DJ2310 
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c  o 


BRK2  =  BB<  +  XK 
U8K2  =  UBK-XK 
SIGMA{NXBK,UO)  =  UBK2 
SIGMA (NXBK, LB)  =  BBK2 
BLT(NXBK)  =  BBK 

CALL  GETt»HI(NXBK,DLT,TMP,OMY)  . 
PHI  =  TMP(MXBK) 

.3LT(NXBK)  =  BRK2 
CALL  GETOHT (NXBK,PLT,TMP,OMY) 
PH2  =  TMP(NXBK) 

TP2  =  0 

TSIG  =  EKO  -  PHI  -»•  PH2  . 

SIGMA ( NBPA »PV)=-TSTG 
30(N0PA)=-TSTG 
BLT(NXPK)  =  BBK2 
ULT(NXBK)  =  BBK2  +  UBK2 

PL0{NXPK)=BLT(NX9K) 
UL0(NXBK)=UBK2 
CALL  GETC  (MXBK, PLT , ULT ,CT) 
STGMA(NXRK,CI>  =  CKNXPK) 
CO(NXnK)=CT{NXBK) 

NOP  =  NOP  ♦  1 

DO  7777  IND=t,MPLUS 
X{IMO)=0 
7777  IX(TNr))=0 

CALL  TABOUT  (1) 

NCF1=NCF 

NF1=0 

CALL  LP  (NOPA jNjNCFl) 

CALL  TABOUT  (2) 

COST2  =  COST 
TF{NF1  .NE.  DGO  TO  55 
104  CONTINUE 

NOPS  =  NOPS  +  I 
DO  8887  J=1,NCF 
TMP(J)=0 

8887  XCON(J)=0 

DO  8888  IMO=l  ,M*»l.US 

IF  (IX(TNO) .GT.NCF  .OR.  IX(INO) 

ICOL=IX(INOI 

TMP(TCOL)=X(INn) 

X(TNO) =X(INO) +BLO{TCOL) 
XCONdCOL)  =X{  IND) 

8888  CONTINUE 
IND  =  0 

00  8899  J=1,NCF 

IF  CBLO{J).EO.  O.C)  GO  TO  8899 
IF  (XCON(J) .GT. 0.0)  GO  TO  8899 
XCON(J)=nLO(J) 

IX(MPLUS-IND)=J 
X(MPLUS-IND)  =PLO(J) 

IND=TNO-t-l. 

8899  CONTINUE 

PP(12)=C0ST-TSIG 


THIS  TS  THE  ONLY  BOUND  FOP  20002320 

THIS  VARIABLE  SENT-  TD  tH£-.LP  CUDE 2001023.311 

20002340 
20002350- 
20002360 
.  .  20002370 

20002380 

_ -20002390- 

20002400 

.  20002410 

20002420 
...  .  20002430 

20002440 

. 20M2450 

20002460 
20002470 
20002480 
.  20002490 

SET  SLOPE  OF  X(K),  IF  PRK  =  0  20002500 

.  20002510 

20C02520 

20002530 

20002540 

20002550 

20002560 

SOLVE  K  DOUBLE  PRIME  LP  PROBLEM . 20  002570 

20002580 

20002590 

20CC2600 

20002610 

20002620 

_ 20002630 

20002640 

20002650 

20002660 

20002670 

20002680 

.  20002690 

20002700 

20002710 

20002720 

.  20002730 

.EQ.O)  GO  TO  8888  20002740 

. . .20.002750 

20002760 
.  20002770 
20002780 
20002790 
20002800 

..  .  ...  _ 20  0023.10. 

20002820 

20002830 

20002840 

.20002850 

20002860 

_ _ _  2110.0  2370 

2C002880 

20002890 
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DO 

C>D(12)  =00(12) -tmd(J)  (J) 

''.ALL  r.rjo^i  (MMC,yn0M,TMO,OHTT) 

C 

WOTTr(e,F73)  OMIT 
IP  (Tf>(ll)  .EO.l) 

»WPTTE  (IV  (T)  ,X(t)  ,1  =  1  ,MO|^US) 

p 

tf(omtt  .r.E.  uz»r'i  to  139 
ij-'  =  ohxt 
no  1C7  I=1,MPLUS 
TX7  (T)  =IX(  T) 

107  X7(I)  =  X(T) 

NEWX7=1 

usp  =  (  uz  / (i.G  +  ep?>T) ) 

U9M  =  (  U7  /(l.C  -  PPST) ) 
tj<;  =  ijs” 

IF(U7  .lT.  0.0)UF  =  USM 
1C9  OONTTMUE 

TF(rrisT2.GE.US)  Oo  T'^  5S 
CALL  MX''=>N(XCnN,  SIOMIV,  NXP) 
no  TO  iqqo 

4444  WOTT'^  (6,4445» 

4445  Fn^MftT  {*  HAVE  sni  VFO  MAX,  NO.  OF  L'’  opoqq,  SFT  ov  TP(12)*) 

4446  WPITF(<5,444«)  (TITLF(T),T  =  1,4) 

444“^  F0RMAT(4fllC) 

WoiTr(8,4447) (IX7(T) ,X7(T) ,T=1,MPLUS) 

4447  FO'>MnT{T4,4X,F12.4) 

WPTTF(8,4447)  MNCt'JZ 
MEMXZ=1 

CALL  TABOUT  (7) 

GO  TO  7 
26  CALL  FVTT 
EMP 


200029C0 
20002930 
20002920 
20ca?9:^j 
2D002943 
2000295C 
2CCL296C 
20002970 
20002980 
20712900 
2CCC'3uC0 
20001010 
20 IC 1023 
20001030 
20001C40 
2C001CF0 
20^1:3060 
20003070 
20C0308D 
20Cnin90 
2-irt-.3iro 
29003110 
20CC1120 
20003130 
20003140 
20o031?0 
200C3160 
20G01170 
23013180 
2C003190 
EOCO-'ZCO 
20003210 
20C03220 
20003233 
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c 

c 


SUPPOUTIME  B.nxi 


labelled 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


COMMON 

/  CVl  /  10(12) ,RP(12) ,TMP (10) 

/  CV2  /  T(1CO»10)  jBOdOO)  ,BL0(1C)  ,ULO(10)  iCO(lO)  _ 

/  CV3  /  M,N,NCF,PHIT,UZ,USP,USM,EKO,MPLUS 
/  CVU  /  1X(110),X(110),IXZ(110)  ,X7(110),XCON(.lQ)jCQS^T 
/  CV5  7  sfGMA(100,4) ,TSIG  ,LSTMAX 
/  CV7  /  NPHASE»NF1,CFX,IOPT,NOP,NOPS,MEWXZ 
/  CVS  /  NXBK,XK,NOBOL»EKBl.  (25) 

/  CV9  /  PSIGL(25),NXeL(25),XNXBL(25),RLT5T(25il31) 


INTEGER  UB,CT,BV 


21)CUC.32AQ . 
20003250 
20O032F0 
20003270 
200C32SO 
2C0C32B0 
_2J[0_Q.330a. 
20003310 
20003320 
20003330 
200033^0 
20003350 
230033^0 
20003370 
2O0033P0 


BOX  NO.  1  (NOO  =  1) 

Cl  =  4 

UB  =  3  .  . 

LB  =  2 
BV  =  1 
NORA  =  TP(2» 

MNC  =(-!)»  NCF 
MNX  =  (-1)*  N 
CALL  GFTC  (MNC, BLO,ULO|CO) 

CALL  INITA  (NCF,N,NOPA> 

CALL  GETPHI (MNC,BLn,TMP,ESIG) 

EKO  =  ESIG 
C  SET  TSIGMA  FOR  1ST  LP  PROB. 

DO  10  I  =  1,NCF 
TMP(T)  =0.0 
S1GMA(I,LB) =BLO(I) 

SIGMA(T,JB)=ULO(I) 

SIGMA(T,CI)  =COCT) 

10  CONTINUE 

DO  15  I  =  l,NOPA 

SIGMA(I,8V)=  BO(T)  .  ...  .... 

15  CONTINUE 
TSIG  =  EXO 
C 

NOP  =1 

DO  5555  INO=l,MPLUS 
XZ(INO)=0 
IXZ(TNO)=0 
X (IND) =0 
5555  IX(IND)=0 

CALL  TABOUT  (1) 

NCF1=NCF 

NF1  =  0  .  .. 

CALL  LP  (NORA ,N,NCF1) 

CALL  TABOUT  (2) 

IF(NF1  .NE.  DGO  TO  7 
2S  CONTINUE 

DO  31  J=1,NCF 
31  XCON(J)=0  .. 

DO  5666  IMD=1,MPLUS 

IF  (IX(IND),GT.NCF  .OR,  IX ( IND) . EQ. 0)  GO  TO  6666 


200033PC 

2Q003400 

20003410 

20003420 

20003430 

.20003440 

20003450 

20003460 

20003470 

_.2jDOD34.80. 

200C34B0 

20003500 

20C03510 

20003520 

20CC353C 

_ J20C0354D 

20003550 
20003560 
20003570 
20003580 
200035BC 
.  _  ,  .  200.03.6110-. 
20003610 
20003620 
20C03630 
20003640 
20003650 

. .  .  2.00  .03.6611. 

20003670 
20003680 
20C036O0 
20.003700 
20003713 
.  „.  _..  20001720 
20003730 
20003740 
20003750 
20003760 
20003770 

_  20003780. 

20003790 

20003800 


O 


ICOLsTXdNf)) 

V  (IMO)  =y(iMr))  4-nLn  (imt) 
XCOM(TCOL)  =x  (  TMn> 

650'S  f'-ONTINUF 

DO  TO  J  =  1|MC»LU‘; 

TXZ(J)=IX(J) 

X?(J)  =  X(J» 

OnMTXMlJP 

M!iWX7=l 

00(12) =onsT 

PD  6567  J=l,MnF 

6657  PO(12)  =s;o(l?)  -XCPPfJJ  *C0{  J) 

''ALL  DfTDHT  (  MND ,  vrOM  ,  THP ,  U?  ) 
ED€:T  =  9P  (1  ) 

U6P=  (U7  /(l.n  +  PPSD) 

USM=  (U7  7(1.0  -  FPOD) 

EKO  =  T6TG 

1C  SPP  6ft 

CALL  NXPPN  (XCnM,6IGMA,NXB) 

L'^TMAXsI 

NnBnL=l 

PSir.LC  1)=C0BT 

XK=yCON(MXR) 

XNXRL(l)=XCnN(NXn) 

MXPL (1) =MX3 
rK9L(l)=TSIG 
5  0  CONTIMU'^ 

00  52  T  =  1,NCF 
RLO(I)  =  SIGMA (T,LP) 
end)  =  SIGMA  (T  , Cl) 

ULOd)  =  SIGMA  (T,IIP) 
Il=NOPAfT 
T2=MCF+X1 

I^sNCF+ip 

RLIST(l,Il)=PLO{T) 

nLTST(l,T2)=UL0d) 

RLIST{l,I3)=nn(I) 

52  CnMTTMUF 

on  53  I  =  1,M0PA 

RPd)  =  SIGMA(T,nv) 

RLTST(1,T  )=nn(T) 

53  CONTTMUF 
777  PFTURM 

7  call  RRCAV2 
FMO 


2CCC3810 

20CC3820 

2.1&n3830 

20CC3940 

20003850 

20003850 

20nG3ft7(] 

2CtC33ea 

2CC0^«PC 

200039CO 

20003010 

20003920 

20003P72 

2C0C39An 
2QCG3950 
2CU03R50 
20CC3R70 
20003960 
20053990 
20004000 
2CCD4010 
20004020 
20004030 
2CCG4040 
20C04C5C 
20004060 
20004070 
2C004CfiC 
20CC4GPC 
20004100 
2000411Q 
20004120 
2CGG413G 
20004140 
20004155 
20004160 
20CC417G 
20n041«0 
20004190 
200C42CG 
20004210 
20004220 
20  :342’0 
2GCC4240 
2000425L 
20004260 
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SUBROUTINE  GETASQLNQESfELM^ JSQ) 

C... SHELL  METHOD  OF  HALVING 
C 

C  GETASQ (NOES,ELH, JSQ)  SORTS  ELM (J) , J=1 , NOES  IN  AN  ASCENDING  SEQUENCE 
C  PRESET  INITIAL  POSITION  CODE  OF  ELM(J)  .  -  - 

C  JSQ(J)  PRESET  To  (-1)  HHEN  ELM(J>  IS  UNDEFINED  (I.E.  INFINITE) 

C  . .  . . - 

DIMENSION  ELM(l),  JSQCl) 

.  L  =  1 

7  L  =  2  *  L 

IF(  L.LE.  NOES)  60  TO  7 
L  s  L  -  1 

10  L  =  L  /  2  .  -  . . . - 

DO  20  K2  =  1,  NOES 
K1  =  K2 

15  K3  =  K1  ♦  L 

IF(  K1  .6T.  NOES)  60  TO  30 
IF(  ELM(K1).LE.  FLM(K3)  )  GO  TO  20 

RT  =  ELM(Kl) . .  . . 

ELM(K1  )  =  ELM(K3) 

ELM(K3)  =  RT 
RT  =  JSQ(Kl) 

JS0{K1)  =  JSQCK3) 

JSQ(K3)  =  RT 

K1  =  K1  -  L . -  . - 

IF(  K1  .GE.  1)  GO  TO  15 
20  CONTINUE 

30  IF(  L  .6T.  1)  60  TO  10 
RETURN 
END 
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SIJOOOIJTTMF  GFTC  ( KCV  t^LT  , ULT  ,CT ) 

/  nvi  f  10(1?)  ,i?o{i?)  ,TMP(ic,) 

COMMON  f  CV3  /  M,N,NOF,PHIT,UZ,U'P,USH,Et<0,MPLUS 
DIMFnsTON  PLT(Ol) ,ULT(01) ,CT (0 1 ) ,FX1 ( 1 0 ) , FX? (10) 

TF  {<0X)  1.  .'JT.  0,  FvaLUftTE  KCX(TH)  C(X)-SLnDE. 

2.  .LT,  0,  FVALUATE  OXCl)  TO  CX(IFX),  (IFX  =  -KFX) . 

3.  .FO.  0,  INVALID  <CX  ****  UEP. 

IF(TO{fi)  .EQ.  1)  WPTTECfiiOOP) 
oqi  F0PMAT(H-,124X,fHGFT0  ) 

TF(KOX  .r.T.  N)  r-P  TO  770 
TF(KCX)?0n,770,lC0 
IJO  FXKKOX)  =  0.0 
EXeCK-CX)  =  9.0 

CALL  GETPHT (KOX,PLT,FXl,nMY) 

CALL  CETOHI (KCX,ULT,FX2,nMY) 

NDXl  =  KCX 
NDX?  =  KCX 
GO  TO  ?2D 

?00  TCX  =(-l)  *  KCX 

IF(  ICX  .GT.  N)  GO  TO  7T0 
no  ?10  I  =  1,TCX 
FXl(I)  =  O.G 
FX?(I)  =0.0 
CT(I)  =0.0 
210  CONTINUE 

CALI  GET»HT (KCX,nLT,FXl,OMY) 

CALL  GFTOHI (KCX,ULT,FX?, OMY) 

NOXl  =1 
N0X2  =  ICX 

?20  DO  ?.?'=  J  =  Mnxi,wnx? 

OIF  =  ULT(J)  -  OLT(J) 

IF  (DIF  .FO.  C.li)  GO  TO  ??G 
CT(J)  =  (FX?(J)  -  FXKJ))  /  OIF 
225  continue 
GO  TO  777 

770  WPITE(G,771) KCX 

771  FOPmat (1H1,13HTMVALT0  KCX  =,I3,1CH  IN  GETC  ) 

CALL  EXIT 

777  CONTINUE 
ASA  RFTU9N 

END 


2CG046LO 

20GC4610 

20004620 

20004670 

20004640 

20oC4650 

20C04660 

20004670 

20CC46P0 

200C46P0 

200047CC 

20004710 

20004720 

20C047’3C 

2C00474C 

20b047Eo 

209C4760 

2C004770 

20004780 

20004700 

200048CQ 

200C4810 

200C4820 

20004870 

20CQ484C 

2CD04850 

2C0C4860 

20014870 

20CJ4880 

29004800 

20CC49C0 

20004910 

20004920 

20004930 

20G0‘»940 

20004950 

20004960 

20004970 

2CC04980 

20004900 

20005000 

20005019 

2CD05020 

2CCC503C 

20005040 
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SUBROUTINE  GETPHI  (K^X, XPHI,Pai.»SUMPidI )  -  -  - 

DIMENSION  XPHI (Cl) ,PHI(01» 

COMMON  /  CVl  /  IR(12) »RP(12) tTMP(lO) 

COMMON  /  ZM2  t  T ( 100 » 10) » BO (100 ) »BLO( 10) »ULO (10) tCO (10) 
COMMON  /  CV3  /  M,N,NCF,PHIT,UZ,USP,USM»EKO,MPLUS 


IF  (KFX)  It  tGT,  0»  EVALUATE  XFX  (TH)_  F  (X)  t 

2.  .LT.  Ot  EVALUATE  FX(1)  TO  FX(IFX),  (IFX 

3.  .EQ.  0,  INVALID  KFX  UEP.. 


=  -KFX)  . 


IF(IP(6)  .EQ.  1)  HRITE(6,909) 

999  F0RMAT(1H-,124X,FHGETPHI) 

IF(KFX) 100,300,500 

100  SUMPHI=PP(12) 

1  =  1 

160  IF(I+KFX)  150,150,400 

150  IF(I.GT,4)G0  TO  140 

GO  TO  (101,102,103,104)  I  . 

101  TF(XPHI(I)  .LTi.OGCl)  GO  TO  140 
PHI(I)=  0.30  +  0.006»XPHI(I)**0.95 
GO  TO  200 

102  PHI(I)=  0.0030»XPHI(T)**0.96 
GO  TO  200 

103  PHI(I)=  0.006*XPHI(I)**0.90 
GO  TO  200 

104  PHI(I)=  0.015*XPHI(I)**0.909 
GO  TO  200 

140  PHKI)  =  0.0 

200  SUMPHI  =  SUMPHI  +  OHT (I) 
IF(KFX.GT.O)  RETURN 
I  =  I  +  l 
GO  TO  160 

500  SUMPHI  =  0.0 
I  =  KFX 
GO  TO  150 

300  WRITE(6,301) 

301  FORMAT (1H1,25HKFX  =  0  IN  GETPHI 
CALL  EXIT 

400  RETURN 
END 


.  .  2110.05050. 

20005060 
20005070 
20005080 

.  20005090 

200051C0 

_ 20005110.. 

20005120 

20005130 

20005140 

20005150 

20005160 

2DD051ZO 

20005180 

20CD519C 

20005200 

20005210 

,20005220 

„200Q523fl 

20005240 

20005250 

20005260 

20005270 

20005280 

_ _ 20CD5Z9ii 

20005300 

20005310 

20005320 

20005330 

20005340 

_ 20a0535fl 

20005360 
20005370 
20005380 
20005390 
■  20005400 

. . 20  C  05410 

20005420 

20005430 

20005440 

20005450 
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SUPPOUTINE  TMITA(MCF,M,M) 

THIS  SURPOUTTWE  nnoTES  THE  A  MATRIX  “^ROM  TA®E  TO  RISC 
AMO  ETORF*?  TUT  RP  AMO  CO  APRAYF  IM  COPE.  TAPPO  IS  AS«;UME0 
TO  RP  THP  TAPE  Awn  TAPE3  IS  ^hF  DISC  FILE. 

COMMOM  /  CV2  /  TdCOtlC)  tPOdjO)  .PLOdn)  ♦ULO(IO)  ,00(10) 

COMMPM  /POWTY®/  TPOWTPdai) 

OIMFMSIOM  AJdOO) 

PPWIMO  3 
"EWIMO  R 

PEAo  (R,ion)  ouMi,nu*^? 

133  FORMAT  (A4,1UX,  A*)) 

PE A 0(9, 400) ( TPOWTP(J) ,J=1,M) 

40C  F0PM<\T(I12) 

00  10  T=1,M 

»EAO  (9,200)  (A J( J) , J=1,H) 

200  roPMAT  (F12.4) 

IP(EPF,9)  10C0,2C 
20  IF  (T.ME.M)  r,0  TO  40 
00  3C  J=1,M 
TO  RO{J)=AJ(J) 

43  IF  (I.OT.MCF)  00  TO  RC 
AJ(M)=CO(I) 

DO  5R  J=l,M 
SE  T(J,T)=AJ(J) 

6C  W9ITF  (T)  ( AJ(J) ,J=1,M) 

WPITE(7,1)  ( AJ(J) ,J=1,M) 
format (5F15. 5) 

MRITF.(6,2)  (AJ  (J)  ,J  =  1,M) 

FnRMAT(lX,5E15.6) 

10  oomtimuf 

TROWTP(H)=3 
EMO  FILE  3 
PPTIJPM 

1000  WRITE  (6,300)  I 

3J3  FORMAT  (*  PRFMATMPF  EOF  ON  A  MATRIX  TAPE  AT  COLUMN  *,IE) 
STOOOOO? 

PMO 


20005460 
2CC05A70 
20005460 
2C0C54O3 
20C055CC 
2CC0551C 
20005520 
2C00553G 
20005540 
200C557C 
2DG05580 
20005593 
20005610 
20CC5610 
20.0C5620 
20005630 
20005640 
20C05650 
20005660 
2030567G 
2C0056BO 
200G569C 
20005700 
2CUC5710 
20005720 
20C05730 
20005740 
2CCQ5753 
20005760 
20C0577C 
20005780 
20  00579.3 
20005800 
20CC5810 
2CCC5B20 
20035833 
200C5843 
20005850 
20C0586C 
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SUBROUTINE  NXRRN  tXT,  SIGH  AT  ,NXB)  - 2ililOEa7J)_ 

COMMON  /  CVl  /  IP(12) ,RP{12) ,TMP(10)  20005B80 

COMMON  /CVS  /  M,N,NCF,PHITtUZ,USP,USN,EKO,MPLUS  _ _  .  _  20005800 

niMENSION  XT(OOl) ,BLT(10) ,CT(1C» ,  YT ( 1 0) , SIGMAT (100 |4)  20005000 

DIMENSION  FXKIQ)  ,FX2(10)  ♦OIF(10),NDX  (IJ) . . . .  20CC501Q 

10  CONTINUF  20005020 

IF{IP(6)  ,EO,  1)  MRITE(6,009).. _ ■2XLaa5a3JL. 

000  FORMAT  (IH-,  124X,f)HNyBRN  )  20005040 

.  NXB  =  0  .  20005050 

C  NXBRN  GIVES  BEST  BRNCH-CANOIOATE  FOR  XTd)  20005060 

DO  5  J  =  1,NCF  . . .  .20005070 

FX2(J)=  0.0  20005080 

F  X 1  ( J )  =  0 . 0  . .  . - _ _ 20  aoa.9  00  - 

OIF(J)=  0.0  20006000 

NOX(J)=  0  20C06010 

BLT(J)=  SIGMAT(J,2)  20006020 

CT(J)  =  SIGMAT(J,4)  20006030 

5  CONTTNUE  20006040 

DO  20  J  =  1,NCF  .  ..  . . .  _  -  .  . 20D06.D5Q 

YT(J)  =  XT(J)  -  BLT(J)  20006060 

20  CONTINUE  20006070. 


NFX  =(-l)  ’>■  NCF 

CALL  GETPHKNFX,  XT,FX2,OMY) 

CALL  GETPHT(NFX.BLT,FXl,nMY) 

40  CONTINUE  ..  . . .  . . . . . 

IF  (RP(4).NE.O) 

•WRITE  (6,55) 

55  FORMAT (IHOtlCX, •DIFFERENCE  =• , ICX, •PHI (X) 

•  -  (•,8X,4HC(X) ,4X,1H^,12X,1HX,6X,1H) ) 

DO  30  J  =  1,NCF 

OIF(J)  =  FX2(J)  -  FXKJ)  CT(J)^YT(J) 

TF  (RP(4).NE.O) 

•  PRINT  50,J,OIF(J) ,FX2(J) ,FX1(J) ,CT(J) ,YT(J) 
50  FORMAT (lH0,T5,6F2n.6) 

NOX(J)  =  J 
30  CONTINUE 

call  GETASQ(NCF,DIF,N0X)  . 

NXB  =  NOX(NCF) 

RETURN 

1000  CONTINUF 
END 


20006080 

2C0C60O0 

2CC06100 

_ _ _ _  2iiac6iia 

20006120 

20006130 

PHKLOWEP  BOUND)  20C06140 
.  20006150 
20006160 

...  .  . . . 2  Oa  06 170 

20006180 

200061.90 

20006200 

20006210 

20006220 

.  _ _ _ 2Q.aCL623a. 

20006240 

20006250 

20006260 

20006270 


o  vn  o  o  o  o  o  o  o  o  r>  o  o  o  o  o  o  o  o  o  o  o  vo  r*  o  no 


SUTOOUTTNE  oAPflM*; 

LABELLEn  BOMHOM 

BOMwnM  /  CVl  /  I“(l?)  ,'»P(1P)  ,TMD  (10) 

BOBMPM  /  /  T(irG,10)  .noclJO)  ,BLf)(lC)  ,UL0{13)  ,cn(10) 

BOMMPN  /  CV^  /  MCF, OMIT, U;!,UBP,ijSM,EK0,MOLUB 

CnrlMOM  /  :V4  /  TY(llC), XdU), 1X7(110  ,X7(llC),XrON(10)  .COST 

CCMMOM  /  CVS  /  STCMA  (10'’,  4)  .TSIG.IFTL 

common  /  CV7  /  NPMASE,NFl,CFX,r0'5T.N0P,Nnos,NFWX7 

COMMON  /  CVn  /  MXPK.XK.MOBOL.EKBI,  (?5) 

COMMON  /  CVB  /  PS^CL  (2S)  ,  NXei.  (?5)  .XNXBL  (I’S)  ,nLIST(25,171) 

PEAniS.lO)  (10(1) ,T=1,1?) 

13  F0pmaT(12I6) 

PEWTNO  B 

oEAn(q,ii)  i'3(  1) ,  10(2) 

I  F0PMAT(2I6) 

IF(  EOF,  B)  77777,  15 
15  CnwTINUE 

Ioi=N,  IP?  =  Nf)BA,  TPBrMCC,  TP/«  =  MMAX,  IP5=NMAX,  IP6=LPTN,  IP7=LP0UT 
ioa=iCTu,  i°B=TnMAx,  toio=jomax,  To11=ICK,  TP12=MXN0P 

N  -  total  no,  of  VApTAOI  FS 

NOPA  -  NO,  OF  PONS  TN  A-MATPIX 

NCF  -  NO,  OF  VAPIAPLFS  W/CONCAVF-F ( X) 

MM  AX  -  MAX,  NO,  OF  CONSTPATMTS  FOP  JPl.o 

MMAX  -  MAX,  NO.  OF  '/APTAPLFS  FOP  JPl.P 

loin  -  IF  (1)  WPITF  Lo  input  FOp  EACH  OPQPLEM 

LPPIJT  -  if  (1)  WPITF  L®  OUTPUT  FQP  EACh  PP0BL='M 

ICTU  -  TF  (1)  CONSTPAIN  COST-F(X)  ,LT.  UO 

T8MAX  -  MAX  NO,  OF  PPWS  IN  PLIST 

JBMAX  -  MAX  NO,  OF  COLUMNS  IN  BLIFT 

ICK  -  TF  (1)  set  PRINT  -  ,TPUF,  in  Jplp 

MXNOP  -  MAX,  NO,  OF  I P  ppoBS,  SOLVEO  BEFOPF  CALLING  EXIT 

PEnO(5,20) (PP(I) ,T=1,  6) 

?0  FOPMAK  5Fl?,n) 

°»1  =  EPST,  PD2  =  TMMAX,  poBsTHETA,  PPi^rTPACE 
FOSI  -  AOJUSTMENT  FACTOP  fop  UO 
TMMAX  -  MAX,  BO-EXCT  TTMF  IN  SECONDS 
theta  -  Xd)  ZFOn  PNOOFF 

TPACE  -  IF(1)  TPACE  COL'ITTON,  USING  LPTN,  LPOUT,  AND  TCK  COOEF 
IF(D)  SKIP  ALL  TNTEPMEniATF  PPINT  OUT 

TMMAX  =  RD(2) 

CALL  SEKTMMax) 

CALL  PRESET 

WPITE(f.,30)  (TO(T)  ,1  =  1,12) 

3C  fopmAT(H1,2CHINtfgEP  pAPANFTFPf  =,1PT6) 

MPITF(b,40)  (PP  (T) ,T  =  1,B) 

40  FOPMATdH-,  IZHP'^AL  pAPAHFTFpS  =,6ri8,a) 

N  =  IPd) 

NOPA  =  TP(2) 


20006280 
20CC62P0 
20CC67CQ 
20 Cf 6313 
20006323 
20G06T3C 
20CC63i*C 
20^36353 
2CC06360 
200C6T7C 
20CC63OC 
200067^3 
23036430 
20006410 
20CG6420 
20006470 
20GC6440 
20GC6453 
2D0G&46C 
20006470 
20 306483 
20006400 
20006500 
20C06510 
20306520 
20CQ6573 
20C06540 
20006550 
20006560 
20CJ657C 
20006580 
20CC65QC 
20006600 
20006610 
20C06620 
20006670 
20CC6640 
20006650 
20006660 
20006670 
20005680 
20'’066BC 
20006700 
200C6710 
2GC0672D 
20006732 
20C06740 
2CCC67F0 
2CC0676C 
20006770 
20C06783 
2C0067BC 
20CC68CO 
2000681C 
2CCC6823 
2CGG6830 
200C684C 
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c 

c 

55 


60 

C 

c 

61 

50 


95 

100 

777 

77777 


NCF  =  TPC3) 

MsNCF  +  NOPa  ..  -- 

IBMftX  =  IP(9) 

RFAO(9»?0)C  ULP(J)»  J  =  1»NCF) 

DO  60  J=1,MCF 

IF(IJLO(J)  .LT.O)  ULPtJr  =  -  ULOCJ) 
CONTIMUF 

.Rean(5,20)  (BLO( J) , J=1»NCF) 

DO  61  J=1,MCF 


20006850 

20006870 

20006860 

20006890 

20006900 

20006910 

20006920 

20006930 


.20006950 


BLO(J)  =  0,0 

WRITE{6,90)  - . -  - 

FORMAT (19-,25H  X(J)  LOWER-UPPFR  BOUNDS  ) 
DO  100  J  =  1»NCF 
WRITE(6,95) J,BLn(J) ,ULO( J) 

FORMAT (1H0,2X, I3,3X,2E12.4) 

CONTINUE 
NOBOL  =0 
RETURN 
CONTINUE 
STOP  00001 
END 


.20006980 

20006970 

200D6980 

20006990 

200.07000 

20007010 

20007020. 

20Q07030 

20007040 

20007050 

20007060 


n 

c 


c 

c 


c 


c 


SlJnnoUTINJE  eOCC^C^G 

2GijC7u«C 


LAHELLf^n  COMMOM 

rn^MOM  /  CVl  /  T‘^(  12)  1^)  ,TM^  (i: ) 

200u7ir.: 

noyMn^f  /  CV2  /  T  <  1 C  r  ,  IG  >  ,  90  (1  3  :  )  ,  RLO  ( i )  ,ULn  ( 10 )  » ( IJ ) 

?rCC7113 

COMMON  /  CV^  /  M,M,Mrr,DHIT,lJ7,U^P,USM,FKn,MPL*J,C 

2DCC''12G 

COMmoni  /  0V4  /  IV(IIO) ,Y(11C) ,1/ ^(lin)  ,y7(ito> ,yroM(io) ,COST 

pnOC/l-^O 

COMMON  /  CV5  /  ,J^7G 

2000714:: 

common  /  0V7  /  MC^maCP,NF1  ,CFy,  TO'^T,Mn=>  ,NO^Sf  NEWX7 

20CC715C 

COMMON  /  CV^  /  MY^K, yy,M030L ,Ey 91 (2^) 

2CCG71F0 

COMMON  /  CV9  /  PSTrL(25),NyBL(25) ,yNy9L(25) ,9LTST(^5,171) 

?rro7i70 

pnoi^i^u 

TF(T^C5)  .rr)^  V?ptTF(6,OPO) 

200G71O: 

format (1H-, 1^4 y, ^HP^FSET ) 

2CL‘C72CC 

NJ=T»(1) 

?ncfj7?in 

NOOQ  =  TP(?) 

?0‘:l7??j 

MCFrIP(3) 

eonc  7230 

TRMflX  =  T^{9) 

2OCC7240 

J9MAX  =  TP(IC) 

2onG7?9n 

pogc^pe: 

2003^273 

DO  IX  J=l,NCF 

2D00726D 

CO(J)  =  c.c 

5>PC072Pa 

ni  0  f  j )  =  0  •  r 

2GC073..C 

DLO(J)  =  e.c 

23007310 

1  1 

CONTJMflF 

20CG732C 

20007330 

DO  19  T  =  l,NOt>^ 

20  j0''34j 

DO  14  »<=i,4 

2000^35^ 

14 

STGMa  (T,K)=u.3 

20007350 

9o<t)  =  r.c 

2CCC777rj 

15 

rOMTTNUE 

20007380 

20u- j7393 

Mcri^Y7=  j 

23007400 

OHTTrC 

2GCC/413 

iJ7  = 

2000742C 

USP  =  l.E<*39 

23G0747J 

IISM  r  l,F  +  39 

20007440 

COCTrJ.C 

200C745G 

TSTCrfi.C 

20007450 

Nri  =  G 

2ir 37470 

OFX  =  3  .0 

23CC748C 

TOPT=C 

200074^0 

NOP=3 

20007900 

MX9K=3 

2C7C7910 

XK  =3.3 

20307920 

NOPnL=0 

2G0C75^C 

20007940 

Oo  ‘?o  T  =1,  T9MAY 

2000799: 

'='<01(1)  =  0.3 

2:  :c795u 

PSTGL(T)=  Q.j 

20CC797C 

MYOL (T)=  0 

20007980 

XMXPL ( T)=n. 0 

23C  0  79®: 

DO  2Z  J=i,JPMay 

20:C75CG 

9LT^T(t,j)  =  0,: 

2C0C761C 

2  0 

CONTTNIF 

20007620 

200C79.3C 

D-37 


END 


20007640 

_20Iia765IL 


1C 

2G 


su^^nuTiNE  pranTM 

CnMMOM  /  nVl  /  1^(1?) , ^0(12) tTMPdO) 

Dira  £Mnr(?  /  i5HE^’0  / 

^f'WTMH  7 

IP(N^.EO.G)  GO  TO  2C 

no  10  1=1, NC 

(G,10G)  (TM^(J)  ,  J=l, 

WOTT^(  7,100)  (TVo  (  j)  ,  j=t, 

COMTTMIIP 

W=>TTE(7,1CG)  FNCIFd 

oriU^M 

^ND 


2GoC7f:>fri 
20007670 
20007680 
20000210 
2Gu076<^a 
2fJCG77CC 
20CD771C 
?nC077?0 
23 JC772J 
20007740 
2CGC77GC 
^>00077^^0 
2GC J7771 
2GC077HC. 
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SURPOUTINE  SET(TMMflX)  . -  - 

COMMnN/TMX/TMO ,EXT 

SECOND  GIVES  JOB  CPU  EXECUTION  TIME  IN  1/1000  OF  A  SECOND 
CALL  SECOND (TMO) 

HXT  =  TMMAX  +  TMO  .  ,  .  . 

RETURN 

END 


_ 20.0.117790- 

20007000 
.  .  .  20007010 
20007820 
20007830 
2000781*0 

_ 200  07 AS  0. 

20007860 
. 20007870 


o  n 


c 


r. 


SUfl’^nUTTME  T  Af^nUT  (I^’T) 


LAnriLTD  COMMON! 
common  /  CVI  / 
COMMON  /  CV?  / 

Common  /  CV*  / 
common  /  CV«*  / 
common  /  CV=5  / 
OOMMON  /  CV/7  / 

common  /  cv«  / 

OOMMON  /  0V9  / 


I°(12) ,00(12) ,TMo (1^) 

TdCC,!!])  ,00(lOG)  ,Bl  Odf  )  ,ULO{10»,Cn{tC) 
M,M,NCF,'>HIT,U7,(J‘^P,USM,rK0,MOLUS 

IVdl,),X(110), 1X7(1  It  ),X7(11G)  ,XC0N(13)  ,COCT 
‘^TCMAdOO,4)  ,TSIC 

Nnneso,NFl,CF'X,r0''‘T,N0o,NnD<;,NE'WX7 

Nyoj<',yK,M0P0L,PK0L(2F) 

PCTCL  (?5)  ,NXOL  (?5)  ,XNXOL  (  '’F)  , PL TST  (  25 , 1 3 1 ) 


TF(N0o  .5T.  1)  CO  TO  OQ 

CO  TO  ICC 
on  COMTTN'JC 

TF(P0(4)  ,po,  0.0)  CO  TO  777 

1j]  continue 

MPITE(C,101) 

101  FOOMAT  (IHl,  •='OHTCPnUT  -  CFNEPAL  -  IMFOPMATTON) 

IF  (TPT.NF.3)  CALL  TIMFC 
WPTTE(C,105) 'J7,UPP 

ICC  PO=>MAT  (lHC,CHt)7‘"^CF’ =,1®E1B.7) 

IF  (n=:mX7,E0,1) 

*WOTTP  (6,570)  ( 1X7(1) ,X7(T) ,1=1, MPLUS) 

57j  FOOMaT  (7H0X7ERO  //  (7y,5(7H  COL  ,I4,2H  =,F1?,4))) 

TP  (TPT.fq,?)  go  to  777 
NEMX7=C 
M'7TTF{6,inO) 

too  "^OPMaT  (  HO  ,  lOHSTCMft  (  T,  J)  ,  13y,5H^HS-P  ,  12X,  5HLW-ONO  ,  1 2X ,  6MU°- PNC , 
111X,7HC-SL0PE) 


00  116  T=1,NCF 

''|PITE(6,113)  I,  (PTCMA(T,J)  ,J=1,4) 

113  FOPMATdH  ,5X,  I?, ’X.UFIB.C) 

lie  CONTINUE 

MPTTE(6,117)TSIC 
117  POPMaT(lHO,6HF (K)  =,F19.6) 

TF(TPT.NE.  l)CO  TO  145 

tf(mobol.le.C)  r.n  to  145 

IT  -  NOPOL 

on  131  1=1, tt 

MPITE(C,1?1)  I,PSIGL (1) ,NXPL (I) , VNXPL ( I) ,EKPL  (I) 

121  P0PMAT(m-,6HNnnr  = ,  14, 6X ,  6MCns  T  =,F2t  .6,6X,3HNX-Ppn  =,T4,pX, 
1  7Hy-BPN  =,F20.6,fX,6HE(K)  =,F2C.6) 

131  continue 
145  CONTINUE 
777  PETUPN 
END 


20C075PQ 

?0:jG789u 

20C079CC 

20GC7qiG 

2Ci;C7q2C 

20C(>7q7-i 

2CC0?q40 
2Cd'7qPC 
20  0  0  796.0 
20CG797fi 
20007980 
2GC079OC 
. 20009000 
2000831 j 
20003020 
.2CC08C''C 
2C008C4C 
2000805C 
20008060 
20008070 
2CC08C'*C 
20(1080PO 
23003100 
20008110. 
2COQ6120 
20008170 
201108143 
2G0C-81C0 
20008160 
20008170 
20038180 
20CC.81QC 
20008200 
20CC8210 
20GC822C 
2Cl0823D 
20008240 
20C0825C 
20008260 
2QCC8270 
20CC8280 
20G082Q0 
20003300 
20003313 
23008520 
200083^0 
20008340 
20C083PC 
20008363 
20008370 
20008380 


c 

c 

n 


SUBPOUTTNE  TIMEC  -  - - -  - 

CnMMOM  /  CV3  /  K,M,NnF,«>HIT,UZ,U<^P,USH,EKO,MPLUS 
COMMON  /  CV4  t  IX (110) ,X{ 110) » IXZ (110) »XZ( 110) »XC0N(1Q) tCQST. 
COMMON  /  CVr  /  NPHftSF,NFl,CFX,in°T,NOP,NOPS,NEWXZ 
COMMON  /TSW/  NSWW 
C0MH0N/TMX/TM0,FXT,T1TLF(4) 

SECONO  GIVES  JOB  CPU  EXECUTION  TIME  IN  1/lDJO  OF  A  SECOND 


CALL  SECDNO(SECS) 

XX=  SECS  -  TMO 
WRITE(6,666)  XX 

666  FORMAT  (12H0FXCT-TIHE  =,F9..3,8H  SECONDS).  - . - 

IF(SECS  .LT.  EXT)  GO  TO  100 
MRITE(6,667) 

667  FORMAT (37H  TIME  IS  UP«.. CYCLING  TO  NEXT  PROBLEM) 
MNC=(-1)*NCF 

4446  WRITE(8,4449) (T ITL F ( T) , 1=1 , 4) 

4448  FORMAT (4A10)  .  - 

WRITE(8,4447) (I X7 ( I) » XZ ( I ) ,I=1,MPLUS) 

4447  F0RMAT(I4»4X,F12.4) 

WPTTE(fi,4447) MNC,U7 
NEMXZ=1 

CALL  TABO'JT  (3) 

CALL  80CAV2  . . - 

100  RETURN 
END 


_ 2£L00i)39[L 

20C08400 
.  20008410 

20008420 
.  20008430 

20008440 

_ 2.01108453. 

20008460 

. 20008470 

20008480 

20008490. 

200085CO 

_ 20011851.0. 

20008520 
-20008530 
20008540 
.  20008550 
20008560 

_ _ 200(18570 

20008580 

20008590 

20008600 

....20003610 

20008620 

_ 281108630. 

20008640 
.  ...  20008650 
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oooooooo 


c 

c 

c 


c 

c 

c 


c 


SURPOUTTMF  LP (MPnMS,MCnLS,MCHGF) 
mMMHM  /  CVl  /  (1<?)  ,PP{  1?)  ,TMo  (1(1) 

CnMMOM  /  cv?  /  T(i:0,13)  ,Pn(10G)  iRLOd,)  ,unS(ll),CO(lC) 

COMMON)  /  CV4  /  IV(11C),X(110),TX?(11C)  ,X^(llO),xrOM(10)  ♦COST 

COMMON  /  CV7  /  NOMfi«5P,MFl,CFX,inPT,NOP,NCPS,NeWX7 
---OFT  PHS  TO  TNnUTH+1 
common  /OHS/  PHSCIGO) 

- SFT  ftJ(AS  MUCH  as  POSSIBLF)  OVEP  INPUTM+1»*2  FOR  CORF  COLUMNS 

COMMON  /COPE/  JAPFJ(lGl) . JA(lOl)  ,JAK(1C1) , flJ(llOCO) 

COMMON  /A/  ALPHAdCl)  /O/  OETKiri)  /C/  GAMMAdOl)  /O/  OELTAdOl) 
COMMON  /OJS/  OJd.':) 

---SET  TPOWTP  (INdiitm  +  1)  N AME  ( IN'^UTM+I NPUTm  +  I) 

COMMON  /RDWTYO/  TPOWTPdCl)  /NAMES/  NAME(6C0) 

COMMON  /!/  M,l»MPL,MC,NT,ICOST,IC,TPHASE,JPHS,IoT 

COMMON  /LIMS/  MAXTPY,NTRY,.JNCORE.NCRMAX,NSnAN 

COMMON  /STATE/  JPO<?,  TROW,  JCOL  ,  JOUT,  ITRM ,  NRE  J  ,  NPIF ,  NOJS 

COMMON  /FILES/  TAl,Ta2,TMAP 

COMMON  /INPUT/INPIIT,  INPUTM^IMOUTM 

common  /OOUMOS/  OOUNOSdOOjIOOSdGOtMnOS 

common  /paRAMS/  TMflx,lTNINV,TNVE,Kl,K2»KS,K4,K'; 

COMMON/TXX/TXX(lGC)  /XX/  XXdOG) 

•THE  P  OCICIN  IS  MOVED  DOWN  THE  A.J  SPACE  — IGNORE  SIZE 
PEAL  OdOC) 

EQUTVALENCF  (AJ,0) 


CALI  MSSG(40HLP/LOMG/5-GUB  CYCLIC  ) 

FILE  OEFINTTTONS 
IAi  =  l 

ia2=2 

TNPUT=3 

IMAP=7 

PEWTNO  TN-^UT 

CALL  FTMBINd,l»TAl) 

CALL  FTNPIMd,l»IAZ) 

SET  LENGTH  OF  AJ  SPACE  IN  NWAJ 
;JWAJ=1100n 


ICOST=INPUTMrMP0WS 

JRHS=TNDUTN=NCOLS 

NBOS=NCHG5 

DO  10  T=1,N30S 

IOOS(I)=I 

10  OOUMnS(I)=UPS(T) 

C - M^pouT  AFTER  TMAX,  QUIT  AFTE®  K5  CYCLES 

TMAX=20C. 

<5=P0a 

C - XCHECK  BETWEEN  CYCLES  N009  TO  NNNAT  INCpFM'^NTS  K? 

K2  =  1 
•<4=100 
K4=0 


2CC£j<566C 
2000A670 
20Ct86PO 
2CD0AP.P3 
2CCDB7CG 
20003710 
20  GO  3720 
20  CO  3733 
2CC0874C 
20008750 
20008750 
20GC3770 
20008780 
20003790 
200038CC 
20003813 
200C8320 
20008830 
20008840 
20CC38'^3 
2000336U 
20008870 
20003880 
20CC8890 
20003900 
20003910 
20003923 
2000393C 
20G0894D 
20C0''95G 
20003960 
20008970 
20008980 
20008900 
20D09000 
20DCO010 
2DOC9O20 
2000907C 
200C9D4D 
20CC9C50 
20009060 
20009070 
20009030 
20009UO0 
20309100 
20009110 
20009120 
20009130 
20C0914G 
20009150 
20009160 
20009170 
20009183 
200C91PO 
2000P2CO 
20009210 
20009220 
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K4=l  2D00<?230 

0 - PPTNT  nONTR^L  K3  2000*?2‘*0 

=  0  2oooq2‘;o 

K3  =  «;*7*11*13  20C09260 

IP{TO(«) .NE.l)  K3=K3/5  20009270 

TF(TO(7)  .PQ.  C)  K7=i:^*7  200092^0 

IP(r.o(4),fQ,p,0)  •<'3  =  1  20C092«»0 

20CC'93C0 
20009310 
20009320 


20009330 

20009340 

20CC9390 

2C0093f.O 

20009370 

20009300 


20009390 


PROGPflM  VPPBS 
130  CALL  SETUP 

WPJTE (G,999)  TPnwTP 

gqq  fopm4T(*  OUMP  IppwTO*/ (1 X , 5CT1 ) ) 

Q - M  XS  NOW  ACTUAL  MOM-GUn  ROWS,  L  IS  NO. 

MPL=M+L 

r; - OPTIMIZE  COPE  COLUMN  STORAGE 

IOPG=NWAJ-M*M 

NCRMAX=MIN0{  OOjIOPG/M)-  3 


200C94G0 

2DG0941C 

20009420 

20CC9430 

20G0944C 

200C9450 

OF  GUR  ROWS  NWAJ  IS  AJ  SPAC20009460 

20009470 

2GC09480 

20009490 

20009900 


230  CALL  MAOIN(9(T0RG) ) 

250  FOPMAK//*  LP  PROBLEM  DATA  FOP  THIS  PUN  * 

+  /*  MON-GUB  ROWS  *  16 

♦  /•  GUR-POWS  ♦  16 

+  / 

+  /•  LOGTCALS  *  16 

+  /♦  TOTAL  COLUMNS*  16 

+  /*  MAX  IN  COPE  *  16 

♦  /*  INVERT  FPFOU.*  16  *  CYCLES* 

+  /*  MAX  RUM  TIME  *  F6  *  SECONDS* 

♦  /*  MAX  CYCLES  *  16  *  ITERATIONS* 

♦  ////) 

WRITE  (6, 290)  M ,  L  ,  Mf,  HT,  MCPNAX,  INVF,  TMA  X,  t<9 
IF  (IORG.GE.?*M)  GOTO  300 

CALL  EPPOP (40HLP--TNSUFFTCIENT  SPACE  STATED  IN  NWAJ  ) 

CALL  ESCAOEtOdORG)) 

30C  CALL  INVEPTGBdOoG)) 

430  CALL  PPIMALtP  dORG>) 

ITNTNV=0 

CALL  TNVERT(OdO»r,)) 

IOI=IOHG+IPT-1 
DO  900  J=1,MT 
CALL  IN(J,AJ,0) 

900  OJ(J)=OOT(M.PdPT)  ,AJ) 

IPI=TOI-TOPG*1 

WRITF(6,901)  (j,nj(j> ,NAME(J) ,J=1»NT) 

901  FORMAT(*03J  VALUES  FOP  FINAL  SOLUTION  COLUMNS*/ dl  0  ,  E12 . 4 , 1 1 0 )  ) 

C - -“ENO  PHASE  2,  OP  UNROUNOFD  OP  NO  PEASTBLE  SOLUTION 

900  continue 

CALL  MARnuT(ndORG)) 


20CC9910 

20CC9920 

20009930 

20009940 

20009950 

20009560 

20009570 

20009580 

20009990 

20009600 

20C09610 

20G09620 

20009630 

2C009640 

20009650 

20009660 

2000967'' 

20009680 

2GC09690 

20009700 

20009710 

20009720 

20009730 

20009740 

20009750 

20009760 

20009770 

20009780 

20009790 

20009800 
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nn  POO  T=l,MVflP 
IX{T)=TXX(I) 

P03  X(I)=XX(I) 

rrisTs-TFTAdrn^^T) 
77<i  PSiTUON 
FNI 


2CC0P81U 

2CC0P820 

2C0C9870 

20C093AU 

2CCC985G 

20009360 

21)009870 


FUNCTION  BOUNO(J)  _  . . . . r - -  - - 

COMMON  /BOUNDS/  BOUNOSdOO)  »1BDS  (100)  »NBDS 

COMMON  /I/  m,l,mpl,mc,nt,icost,ic,iphase,jrhs,ipi . .  . 

COMMON  /NAMES/  NAME(lOO) 

-PICKS  UP  BOUND  FROM  PACKED  LIST»EITHER  FINITE  OR  .  .1Q**35 - 

BOUNO=1.E70 

IF{J.GT.NT)  RETURN . . -  -  - - - - 

IB=NAME(J) /lOOOOO 

IFCIB.LE.O.OR.IB.GT.NBDS)  RETURN  .  . . . 

BOUND  =  BOUNOS(IB) 

RETURN  ...  _ 

END 


2QM.9a.aa- 
2000B890 
..  200DB-Ma_ 
20009910 
20009920- 
20009930 
?nnnqqi4n 
20009950 
.-20M996a. 
20009970 
2000.99ail 
20009990 


SUBROUTINF  C0LUMM(JC0L,9) 

C - r.in  VEPSTON  APPIL  0O-71 

COHMONI  /Movrs/  THFTa,BMnj,nM4X,°PMLER,DUALEP 
common  /sTftir/  jpo?;, tpom,jkol,joijt,ttrm,n?fj,noif,ndjs 

COMMON  /TOLE/  OJTOLiZERO,PIVTOL,CTnL,PEPTOL,DFRTOL 
COMMON  /T/  M,L,MPL,MC,NT,TCOPT,TO,TPH4SE,JPHS,IPI 
COMMON  /LTMS/  MAXTPY,NTRY, JNCOPE,NCPMAX,NSCAN 

common  /a/  ALPMA(IOl)  /B/  8ETA(1,1)  /C/  OAMMA(lOl)  /O/  OELTA(lOl) 
common  /CORE/  JAPEJ(lOl)  ,  JA(iai)  ,JAK(i  :i),  AJdOQC) 

COMMON  /NAMES/  NAMFdCO) 

COMMON  /njS/  OJdCC) 

LOGICAL  BASIC, ATOMd, NULL, KEY 
PEAL  Bd) 

KEY(T)=MOO(NAME(T) ,1D).EQ.4 
NDKT(J)=MOO(NAMF{J),100000)/10 
C 

C - CHECKS  COLS  IN  COPE,  IF  NONE  GETS  SOME,  IF  SOMF  FINOS  BEST 

NTPY  =  1+NTPY 
MAXTPY  =  NC,PMAX 

IF(  NTPY.GT.  MAXTPY)  GOTO  1 
IF(  JNCORF.NE.O)  GOTO  5 

C - CHECK  FOP  MOPE  COLUMNS  ON  DISC 

I  CALL  nisco) 

NTPY  =0 
NnJST=NOJS 

TF(  JNCOOF.EQ.O)  GOTO  ICO 

C 

C - pp.ooioE  VECTORS  TN  CORE 

5  vJOPG  =  1 

C  — - NO  PPICIMG  TF  REJECTS  OR  JUST  PPTCED  DISC 

IFCNprj.NE.O  .OP.  NTRY.EQ.C)  GOTO  50 

C - PRICE  OUT  COLUMN 

DO  4S  J=  l,JNCOPF 

nj( J)=nOT(M,B (TPT) ,AJ(JORG)) 

40  JORG  =  JORG<-M 
C 

C - NOW  ETNO  BEST  COLUMN  TN  COPE,  NON-BASIC  OR  POUNDED 

50  DMax=a 

NOJS=0 
JPKTO=c 
oiKFY=0. 

DO  6.0  J=l,JNCOPE 
IF(JAPFJ(J) .EO.l)  GOTO  60 
JPOS  =  Jft(J) 

jTYPF=MOD(NAMF( joos) ,10» 

TF(JTYPP.EQ.2)  GOTO  60 
TF( JTYPE.EQ.4)  goto  60 
TF(JTYOE.EQ. 0)  GOTO  6C 
jpKT=NpKT{ JPOS) 

IF{JOKT.FQ.0)  GOTO  55 
TF(JPKT.FQ.JPKTO)  goto  55 
JKEY=<FYFN0( JOKT) 

C - MEM  PACKET  STAPTED,  FINE  KEY  AND  KEY  PPICE 

IECJKEY.fq.O)  GOTO  60 
PIKEY=OJ(JKEY) 

jokto=jo<t 

55  D=nj(j) 


2GC10CCC 

2001001C 

20010020 

FOtlOCTO 

2CC1004U 

20010050 

20010060 

2J010(;70 

20010000 

20Q10CB0 

20C10100 

2u010113 

20013120 

20010130 

20.010140 

20010150 

2CC1O160 

2CC10170 

20010180 

ROOIOIRO 

203102C0 

20C10210 

20C1022G 

20C10230 

20010240 

20010250 

20010260 

20010270 

20D1026C 

20010250 

20G1C3CC 

20010310 

2001032C 

200103^0 

20010340 

20010350 

20010360 

20C10370 

20C1U380 

200103O0 

2C01C4CG 

20010410 

2001042C 

20010430 

20010440 

20010450 

20010460 

20010470 

20010480 

20010450 

20C105C0 

20010510 

20010521: 

20010530 

20010540 

20010550 

20010560 
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IF{JTyPE.EQ.3)  0=-0J(J) 

IF(JPKT.NE.OJ_  D=n-PIKEY _ _ _ 

IF(0.LT.-ZE'?O)  NDJS=1+M0JS 
IF(O.GE.  DMftX)  GOTO  60 
□  MAX  =D 
JCOL  =  J 
60  CONTINUE 

NCORE=JNCORE  . . 

C - PEGTOPE  COUNT  OF  NDJS  FROM  CHECK  IF  JUST  DONE 

IF(NTRY.Ea.O  .AND.  NT.GT.NCRMAX),  NOJS=NOJST 
IF(  OMAX.LT.-OJTOL)  GOTO  70 

0 - CURRENT  COLS  NO-GOOO,  QUIT  IF  THESE  ARE  BEST 

IF(  NTRY.EQ.O)  GOTO  100 

GOTO  1  .  . . . . . . .  . 

C 

C - RETURN  WITH  COLUMN  INDEX .  .  .  .... 

70  RETURN 

- NO  GOOD  COLS,  OPTIMUM 

100  JCOL=0  .  . .  .  . . . . .  . - 

C - SAVE  OLD  COLUMNS 

JNCORE=NCORE  . . 

RETURN 

C  . 

END 


20010570 

_ 20  010.5.8  0. 

20010590 

20010600. 

20010610 

20011.620 

20010630 

20.010.641 

20010650 

20010660 

20010670 

. . 200111600. 

20010690 

.IMlimiD.. 

20010710 

_ 2001.07.a0. 

20010730 
..  ..  20010740. 

20010750 
__  2CJai0.7M 
20010770 

. .20010760. 

20010790 

_ 20.01QJ800 

20010810 
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SUBROUTINE  niSC(O) 


?onioe?o 


REVTSEO  10/71 

- CHECKS  OTSC  FOR  COLUNMS,  ACCERTTMG  1/NRCH,  IF  NOT  ALL  TN  CORE, 

RETURNS  JNCnPE  COLUMNS  AND  PRICES,  OP  JNCORE=0 

- PACKETS  CAN  TN  PF  TNTFR-MIXFO  WITH  SOHE  LOSS  OF  EFFICIENCY 

nUP  TO  MULTIPLE  KPY  SEARCHES 

COMMON  /!/  M,L,MPL,MC,NT,ICOST,IC,TPHASF,JPHS,IPT 
COMMON  /STATE/  JPPR, TROW , JCOL , JOUT, TTRN , NRE J ,NPIF , NOJS 
COMMON  /TOLS/  OJTOL, 7ERO,PTVTOL,CTOL,BERTOL,nERTOL 
COMMON  /PAPAMS/  TMAX,ITNTNV,TNVR,K1,K2,KT,K4,ITNCHK 
COMMON  /LIMS/  MAXTRY,NTPy , JNCORE ,NCRMAy,NSCAN 
COMMON  /CORE/  JAPFJdOl) ,  JA(lOl)  tJAKda),  AJ(nor) 

COMMON  /BASTS/  IBASTSdOl)  ,KEYS  (ILl) 

COMMON  /DJS/  OJ(IOO) 
common  /names/  NAMFdoO) 

INTEGER  PKT,PKTO 
real  Bd) 

LOGICAL  BASIC, ATPND  ,NULL,CHFK 
NPKT(vJ)  =MnD(NAME(J) ,  100C0  0)/10 
MULL (I) =M00(NAME(T) ,10) .EQ.O 

-—-CHECK  FOR  AN  INVERT  (  TTRN.GE.  ITNINV) 

CALL  INVERT(B) 

- ALL  IN  COPE,  NCRMAX  SET  IN  L® 

IF(  NT. LT, NCRMAX)  GOTO  200 

- ACCEPT  1  COL/NBCH  cols,  BEST  AT  TORG,  NEW  AT  JOPG,  (ICOL,JCOL) 

NBCH=NT/NCRMAX/4+1 

Nr)JS=PKTn=JNCORE=C 

JORG=0 

JCOL=l 

IORG=M 

IC0L=2 

NC0PS=2 

CALL  INPOStJNT) 

NBCHS  =  (NT«-NBCH-1)/MPCH 

no  1000  JBCH  =1,  NBCHS 

OJOLD  =  1.E3*; 

on  ICa  JFBCH=  1,NBCH 

- BATCH  CYCLE,  NEXT  COLUMN  JNT 

JNT=  l+MnO( JNT, NT) 

JTYOF  =  MOn(NAME(JNT),lO) 

- SKIP  NULL,  BASIC  OR  KEY  COLUMNS 

IP(JTYPE.Ea.2)  GOTO  100 
IF( JTYPF.EQ.4)  goto  100 
IF(JTYRE.Ea.n)  GOTO  100 

- TF  IN  A  GUB  PACKET,  GET  KEY 

PKTs  NOKT(JNT) 

IF(  PKT.FQ.O  )  GOTO  20 
IF(  RKT.EQ.PKTO)  GOTO  20 

C - USF  an  UNUSED  KEY  SLOT 

JKEY=KEYFNO(C) 

TF( JKEY.NE.O)  GOTO  IB 

10  NCnPE=l+NCOPE 
JKEY=NCORF 


20010030 
20010R40 
20010flE0 
20C10«60 
20010B7a 
200108Pa 
2O01C8B0 
200109C0 
20  Cl  3 910 
20010920 
20010930 
20C1C940 
203139E3 
20010960 
20010970 
20010980 
20010990 
20011010 
20011010 
20011020 
20011030 
23011043 
20G110BO 
20011060 
20011070 
20211080 
20011090 
2CC111C0 
20011110 
23011120 
2C011130 
20011140 
20011150 
20011160 
20011170 
20011180 
2G0111B0 
20G112G0 
20011210 
20011220 
20011230 
20011240 
20011250 
20C11260 
20011R70 
20011283 
20011290 
20C11300 
20C11310 
2CC11320 
20011330 
2C011340 
2CC11350 
20011360 
20011370 
20011380 
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15  KORG=  M»JKEY-M 

CALL  INPCKD(KEYS{PKTl/iaO,AJtKORG+J.)  ,JK£Y)  . 
DJ(JKEY)=  00TS(M,B(IPI) ,AJ(K0RG+1)  ) 

PKTOsPKT  .  . 

C 

C - —NOW  GET  C3LUHN  AND  DJ.  . 

20  CONTINUE 

CALL  IR(JNT,.  AJtJ0RG.+l),.  JCOLl  _ _ _ _ _ 

0J(JC0L>=  00TS(M,BCIPI> ,AJ(J0RG+1)  ) 

- CORRECT  FOR  PACKET  AND  BOUND  EFFECTS 

OJNEW  =  OJ(JCOL) 

IF(PKT.NE.0»  OJNEW  =  OJNEW  -  OJ(JKEY) 

IF(JTYPE.E.a..3IDJNEW  .=--DJN£H . . .  . . . 

IF(  OJNEW, LT. -ZERO)  NOJS=l+NDJS 

- SELECTION  STAGE  INTERCHANGE  BEST  FOR  NEW 

IF(DJNEW.GE.OJOLD)  GOTO  100 
OJnLO=DJNEW 

I=ICOL  . . . . . .  .  . . . 

ICOL=JCOL 

JC0L=I  . 

I=IORG 

IORG=JORG  . .  . 

JO!?G=T 

100  CONTINUE  _  _ _ _ _  _ _  _ 

IF(  DJOLD.GT.-OJTOL)  GOTO  999  . 

- PRESERVE  THE  BEST  . 

JNCORE=l+JNCOPE 

NCnRE=l+NCOPE  .  ...  ..  . . .  _  .  . . .  .  _ _  . 

ICOL  =  NCORE 
.lORG  =  M»ICOL-M 

999  IF(  NCORE.GE.  NCRMAX)  GOTO  110 

1000  CONTINUE 
110  CONTINUE 

IF(JNCORE.NE.  O)  JNCORE=NCORErl. _ _  .  . 

GOTO  500 

- ALL  IN  CORE  CASE,  READ  AND  PRICE  . 

200  IF(  JNCORE.EQ.O  )  GOTO250 
JNCORE=0 
GOTO  500 
C 

250  CONTINUE 
JORG=0 

DO  300  JNT=1,NT 

CALL  IN(JNT,AJ(  JOPG+l) , JNCORE+1 ) 

IF(  NULL  (J NT  J  )  GOTO  .30.0 .  . . 

JNCOPE=l+JNCOPE 

DJ(JNCORE)  =  DOTS(M,B(IPI) ,  AJ{JORG+l) ) 

JORG  =  M+JORG 
300  CONTINUE 
GOTO  500 

C  . .  .  ..  _  . . .  . . . 

C - DIAGNOSTICS  IF  K3*23 

500  CONTINUE 


20011390 

_ 2jjiii4im- 

20011410 

.  - _ _ 200114EO- 

20011430 

. . . .  .  20011440 

20011450 

_ 2.0  011450- 

20011470 

. .  20011480 

20011490 

_ _ —  2051X500 

20011510 

_ 20511520. 

20011530 

. .  _  ...  20011540 

20011550 

. -  ..  .  _  20011560 

20011570 

_ .: _ 200115JB0 

20011590 

. . . .  20011600 

20011610 

_ _ _ _ ....20  011620 

20011630 

_ 20011 6A0. 

20011650 

.  -  . .  20011660- 

20011670 

. - . -.20011680 

20011690 

_ 20011200. 

20011710 

.  -  20011720 

20011730 

-  -  - . -  -20011740 

20011750 

_ - 20011760 

20011770 

. . 20011780 

20011790 

. . . . .20011000 

20011810 

_ 20011820 

20011830 

. 20011840 

20011850 

.  .  20011860 

20011870 

.  _ _ —2001 18.60. 

20011890 

. .  .  _.  20011900 

20011910 

. -.20011920- 

20011930 

_ 200119.40. 

20011950 

20011960 
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IF(  Hm(K3,2?!) .  MF.  r  >  *>ETUPN  20Cliq7C 

WRITr(ft,^01)  {JA(J),  OJ(J),  J=l,JNCncF  )  20D11980 

531  FORMAK*  OISn-PPnvTOFn*/{  8  {  15,  Fin,2  ))  )  20011990 

®ETUPN  ^  20D120C0 

20012010 
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FUNCTION  OOTCMtXjY)  . . . 

Q - INNER  PROOiiCT  OF  Y  AND  Y 

DOUBLE  PPECISION  SUM 
REAL  X(1),Y(1) 

SUM=0.0 

DO  100  1=1, M 

IF(V(I> .EQ.0.0)  GOTO  100 . . 

SUM=SUM+X(I) ♦Y(I) 

100  CONTINUE 
DOT  =  SUM 

RETURN  . 

- SINGLE  PRECIS! ON  VERSION .  FOR _S.PE ED 

ENTRY  DOTS 
OOT=0.0 
DO  200  1=1, M 

200  DOT=OOT+X(I)  *Y(I)  .  .  .. 

RETURN 

END  ...  . . . 


Od  m 


COMMON 

COMMON 

common 

COMMON 

COMMON 

COMMON 


/O/  OELTft(lCl) 


SNOPOlITTNE  ESOaPE(O) 

--GUP  VERSION  4PPIL/71 

COMMON  /PaoftMc^/  Twax,  ITNTNV,  INVF  ,K1,K2  ,KS,  •<4,KG 
/LTMC/  waxTPY I MTPY  «  JNCOPE ,NCPMaX , NSCaN 
/!/  M,L,M0L,HC,NT, ICOST.ICjIOHaSFtJOHS,!®! 

/oasis/  loasTF (101) ♦keys(ici) 

/MaMFS/  NaHP(ioO) 

/a/  aLPHa(jci)  /b/  beta(ici)  /c/  saMMadci) 

/COPE/  JAPFJdOl)  ,  Ja(lJl)  ,ja<dDl»,  ajdOCC) 

/ojs/  ojtino) 

DATA  aaLPHa/FHaL''HA/,AB"-TA/4HBFTa/,Br,aMMa/SHGAMMA/,aPI/?HOT/ 
DATA  ajaPEJ/GHjaoFJ/,ajA/2HJA/, ANAMF/4HMaHP/,aOASTS/BHBasIS/ 

naia  ao':^LTa/5HOFLTa/,4nj/2Hnj/*  akfy/3hk"y/ 
common  /PHS/  PHSdOO) 

NOKT(J)=MOr)(MaME(J)  ,100000) /1 3 

CALL  MFSSG(4CHESCaPEn  AFTER  O'JMP  OF  L»  SYSTEM  ) 

WPTTF(G,T)  ANAMO 
MPITE(6,2)  (NAMEC J) , J=1,NT) 

WRTTF(G,3)  apasis 

W9rTE{6,2)  (IBASTS(J) ,J=1,M) 

WPTTF(G,T)  AKFY 
WPITF(6,2)  (KFYS(I) ,T  =  1,L) 

WPtTF(G,3)  ajA 

WOTTF(6,2)  ( JA(J) ,J=1, JNCOPE) 

WRTTE(6,T)  ajARFJ 

WRITF(6,P)  (  jaPFJ(J)  ,  J=l,  JNCORD 

WRITE(6,3)  AALPHA 

WPITE(6,1)  (ALPHACJ) , J=1,MPL) 

WPITF(6,S)  ABFTa 
WRTTF{6,1)  (PETA  (J) ,J=1,MPL) 

WRITr{6,T)  AGAMMA 
MRTTE(6,1)  IGAMWafJ) ,J=1,M) 

WRITE(ft,T)  aOELTA 
WRTTE(G,1) (nFLTA(J) ,J=1,M> 


WRtTr(C,T) 
WPITF(G,1) 
FORMAT (IH 
FORMAT (IH 
FORMATdHOtAlD) 
CALL  MaPOUT(B) 
•CAUSE  A  BUMP 

i=n 

WRITF(T)  I 

RETURN 

END 


AOJ 

(OJ  (J) , J=l, JNCORF) 
,1CF12.S) 

,10112) 


20012210 
20:i22?0 
20C12230 
20L122AC 
20012250 
2P<:i22FC 
20012270 
2CC122PG 
20012290 
2CC123:0 
20«123ir) 
2CC12320 
20C1233C 
20C1234C 
20012350 
20012360 
20C1237D 
20012360 
2301 2390 
2C0124CG 
20012410 
2G:124?0 
20C124.3C 
20tl24AG 
20012450 
20012460 
23012470 
20C124P0 
?Oni24P0 
20C125r'0 
2CG12510 
2001252C 
20012570 
20012540 
20012550 
20C1256G 
20012570 
20C125P0 
2CC12590 
20012610 
2C012610 
?0.?1262G 
20012670 
20C12640 
2CC1265G 
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SUBROUTINE  EXIT? _  _ - 

COMMON  7  CV7  /  NPHftSE,NFl,CFX,IOPT,NOP,NOPS,NEWXZ 
•PRIMAL  CALLS  THESE,  ENTRY  POINTS  AT  THE  END 

ENTRY  OPTl  -  - - 

NPHASE=1 

RETURN  .  .  . . -  -- — 

ENTRY  OPT2  -  -  - 

NPHASE=2 

CALL  STATUS(40HPPIMAL  — END  OF  PHASE  2--0PTIMAL 

RETURN  .  ..  _ _ _ -7---7rr^^ 

ENTRY  UNBMO  .  -  --  - - -  ' 

NPHASE=4 

CALL  STATUS (40HPRIMAL—UN,BOUNpE.O  SOLUTION.  - -  -  - 

RETURN  _ _ 

ENTRY  NOFEAS 

CALL  STATUS(40HPRIMAL  — NO  FEASIBLE  SOLUTION 
RETURN  . 


20012660 

20012670 

^OQ1^660 

- 20012690 

_  _ 20JL1271L0 

20012710 

_ _ ZmMZlL 

.——20012730 

20112740 

20012750 

_ .201)127.60. 

20012770 

_ 2.0.012200. 

- 20012790 

_  _2JD  0120.00 
20012810 
_2D01282Q 
20012830 

D12ait0 

20012850 
..20  012860 
20012870 
_ 20 012880 

- 20012890 

_ 2001,23.00 


END 


'JUawnUTINE  FFflSCH(P) 

Gijn  VEPSION  iVPRIL/7t 

GIVEN  CURPEMT  TNVFP'?E  B,  PHS,  KE''  AND  pnUNOS  TN  GftMHA 
COMPUTES  CUPPFNT  SOLMTION  BETA,  MO,  OF  INFEASTOLES  NPIF. 

IF  RC’tA  TNFEAS,  AODS  ARTIFICIALS  ANO  RFVFPTS  TO  PHASE-1 
COMMnu  /PARAME/  TMAV , ITNINV, INVF  ,K1 ,K2 , K 1, KA ,K5 
COMMON  /STATE/  JPOS, TPOW, JCOL , JOUT, ITPN , NRE J, NPIF , nQJS 
COMMON  /BASIS/  TPASIS(lOl) ,KEYS(  101) 

common  /a/  ALPHAOCI)  /R/  RETA(lCl)  /C/  OAMMA(lOl)  /D/  OELTAdOl) 
COMMON  /!/  M,L,MDL,MC,NT,ICOST,IC,IPHASr,JPHS,TPT 
COMMON  /COPE/  JAPfvKlOl)  ,JA(101)  tJAKdLl),  AJdOOC) 

COMMON  /TOLS/  D JTOL , ZERO, PIVTOL , CTOL , PPP TOL , OEPTOL 
COMMON  /OOUNOS/  POUNDS (10 0 ), I IDS (10 0 ), NCOS 
COMMON  /NAMES'  NAMF(ICO) 

COMMON  /PHS/  RHS(IOO) 

LOGICAL  KEY 
PEAL  9(1) 

NOKT(I) =MOO(NAME(T) , 1 03000) /I) 

ITP(J)=MOD(TBASIS(J) ,100) 

KEY=.EALSE. 


20C12O10 

2001?q2C, 

201,12910 

20C12940 

200129E0 

20012060 

2CC12970 

20C129P0 

20012990 

2CC13Cia 

2CC13010 

2CC1J020 

2001T010 

20011040 

2CC13G50 

20013060 

20013070 

E'-C’IIOOO 

20G13C90 

2CC111C0 


DC  10  T=1,M 
DELTA(T)=0.0 
OFLTA(M) =1.0 

COMPUTE  EFFECTIVF  PHS  TN  GAMMA  USING 
DO  20  1=1, M 

GAMMA(I)=4-GAMMA  (I)+PHS(I) 

CYCLE  ELEMENTS  CF  SOLUTION 

NPTF=a 

SUMIF=0. 

nNnj=i,E7c 

IOPG=l 

MM1=M-1 

DO  100  T=l,MMi 

SUM  =  DOKM,  R(IOPG),  GAMMA  ) 

BETA(T)=SUM 

TORG=  M+inPG 

JOUT=  I9ASIS( 1) /lOO 


20C13110 
20  Cl  3120 
20013130 

KEY  +  BOUNDS  ALREADY  THERE  20C13140 

20C13160 
20013160 
20U13170 
20013160 
20013190 
20C132CD 
2OC13210 
20C1322C 
20013230 
20013240 
200132FO 
20013260 
20C13270 
20013260 
20013290 
20213300 
2C013310 
20013320 
20017330 
20013340 
20C13350 
^  20G13360 

20C13370 
20013360 
20013390 
20C134L0 
23C13410 
20013420 
20013430 
20013440 
2CC13450 
20013460 
20013470 


IFINBDB.FQ.O)  GOTO  EC 
CHECK  XJOUT  LESS  THAN  ROUND 
BNDJ  =  BOUND (JOUT) 

IF(  SUM.LE.BN0J+7FP0)  GOTO  EC 

BOUND  VIOLATED,  pEMOVE  BOUND  ANO  TPEAT  AS  INFFAS  XJOUT 
IF(MOD(K3,13) .EQ.C)  WPITF(6,101)  I, JOUT, SUM, BNDJ 
CALL  SFTRNO  (JOUT) 

RETA(I)=RFTA (I)-BNDJ 
GOTO  60 

CHECK  XJOUT  POSITIVE  FDR  NON-FPEF  onws 
IF(  ITP  (T).EQ.'»  )  GOTO  100 
IF(  PFTAd)  .GP.-7EPO)  GOTO  103 

infeasible,  ado  APTIFICIAL  to  kill  ERpop  ANO  pTVOT  IN 
IF(Mon(K7,13) .EQ.C)  WPTTE(6,101)  I, JOUT, SUM, BNDJ 
CONTINUE 

CALL  SETnNR(-JOUT) 

BETA(T)=  -BETA(T) 

NPTF=1+NPIF 

JOKT=0 

IF(  JOUT.LE.NT)  JPt<T=NPKT(  JOUT) 


100 

101 


c 


c 


110 

115 


C 


111 


150 

151 
C  — 


160 
C - 


199 
C— 

200 


C 


TF(JPKT.NE.O)  KEYS(JPKT)=KEYS(JPKT)-1 

SUMTF=SUMIFf^ETA(Il _ _ _ _ _ 

TBASTS(I)=100*(100+jnUT+NT)+MOO(TBftSIS(I) ,100) 

DELTft(I)=  -1. 

IF(JOUT.GT,NT)  0ELTA(M)=2. 

CALL  olVOTdfB, DELTA)  _ 

DELTA(I)=  0. 

OELTA(M)=l,  . .  _  _ 

IF(KEY)  GOTO  150 

CONTINUE  ..  . 

FORMAT  (•  INFEAS— ROH*I5*  C0L*I5*  VALUE»E12.4*  B0UN0*E12.4) 

CONSTRUCT  COMPLETE  SOLUTION  FOR  KEYS  IN  BETA  (M+l).^..-^  . . 

TF(L.EQ.O)  GOTO  151 

BNOJ=1,E70  . .  .  _ 

KEY=.TRUE. 

DO  150  K=1,L 

CHECK  PACKET  HAS  BASIC  COLS 
SUM=  0.0 

NB  =  MOO  (KEYSCK) ,100) 

IF  (NR  .EQ.O  )  GO  TO  115  . .  ..  .  „  _  _ _ _ 

SUM  BASIC  COL  VALUES  IN  oacKET  K 

DO  110  1=1, M 

JOOS  =  IBASIS(I)/1D0 

IF{NPKT(JPOS) .EQ.K)  SUM=SUM+eETA (I) 

CONTINUE 

BETA(H+K)  =  RHS(M+K)r.SU!1-.  . . . .  .  _ 

IFCBETA (M+K) .GE.-ZERO)  GOTO  150 

INFEASIBLE  GUB,  MUST  BE  ESSENTIAL,  CHANGE  TO  BASIC  ROM  I 
JOUT=KEYS{K)/100 


20C134R0 

- 2aaii490- 

20013500 
20013510 
20013520 
..  20  013530- 
20013540 

_ 20011550-. 

20013560 
..  .20013570 

20013580 

_  20013590 

20013600 

_ 20013610 

20013620 
.  ..  .  20013630 

20013640 

-  20013650 
20013660 

_ 210013670 

20013680 

_  20013690 

20013700 

-  20013710 
20013720 

- 20013730 

20013740 

20013750 

20013760 


IF(MOD{K.3,13)  .EQ.O)  HRTTE(6,111)  K,  JOUT,  BETA  (M+K)  ,  BMDJ  . . -  20013770 

FORMAT  INFEAS— GUB»I5*  COL»IS»  VALUE*E12.4*  B0UND*E12.4)  20013780 

CALL  KEYCH(JOUT,I.,P)-  .  ..  I  _ _ _ _ 20013.790- 

GOTO  55  20013800 

CONTINUE  20013810 

CONTINUE  20013820 

TOTAL  INFEASIBILITY  20013830 

BETA(M)=0.  20013840 

DO  160  .I=1,MM1 _ _ _  _  _ _ _ _ _  _ _ ^0013850 

IF(IRASIS( I) /lOO.LE.NT)  GOTO  160  20013860 

BETACM)=BETA(M)-BFTA(T)  .  20C13870 

CONTINUE  20013880 

INDICATE  PHASE  1  20013800 

1F(ABS{BETA(H) ) .LT.CTOL)  GOTO  200  20C13900 

IPHASE  =  I  — . - . .  . .  ..  .  . . . 200121910 

IF(M00(K3,13) .EQ.O)  MRTTE(6,199)  SUMIF ,BETA (M)  20013920 

FORHATC*  TOTAL  INFEASIBILITY*E12.4*  PHASEl  C0ST*E12.41  .  . . 20013930 

ADJUST  COST  POM  IC  AND  ORIGIN  IPI  20013940 

IC  =  ICOST  ..  . .  ..  20013950 

IF( IPHASE. EQ. 1)  TC  =  M  20013960 

IPI=1+M»IC-M  .20D1397J]. 


PHASE  1  COST  IS  EQUALITY  ZERO  IN  PHASE  2 
I9ASIS(M)=100»(IBASIS{M)/100) 

IF ( IPHASE. EQ.l)  IBASIS(M) rIBASIS  (M)*3 

RETURN 

END 


20013980 

20013990 

20014000 

20014010 

20014020 


r>  o 


n - 


«:unPOUTIME  IMVf^RT(O) 

-r.UB  VER^inM  APRTL/71 

COMMON  /ROUMOS/  ROUMn'?  (  10  0  )  ♦  I^HS  ( 1  j  U  )  ,  NR  IS 

COMMON  /STftTF/  jPOr,TP0M,  JCOL,JOlJT,TTRN,NPEJ»NPTr,NnjS 
COMMON  /TOLS/  D  JTOL  ,  "'FRO »  PIVTOL  ,  OTOL  »  OFPTO L  ,  OE°TOL 
roMMON  /oflPRMS/  TMAX,ITNTNV,INVF,K1,K?,<'^,K4,ITNCHK 

COMMON  /RftSI^/  IRRSTSdOl)  .KEYSdOl) 

common'  /A/  AlPHAdOl)  /R/  RFTA(l.  l)  /C/  GAWMAdOl)  /O/  D-LTAdtl) 

common  /LIMS/  MAXTPY,NTPY,JMCOPF,NCPMAX,NSCaM 
COMMON  /!/  M,L»M°L»Mr,NT, TCnST,TO,IPHASF*JPHS,IPI 
COMMON  /COPE/  J RPO J  ( 1 01 )  «  JA  (1 01 )  1 JAK ( 1  ul) »  A J  (1 J li . ) 

COMMON  /NAMES/  NAME (100) 
common  /pHS/  PHS(ICO) 

PEAL  B(l) 

INTFCE®  Pt<T,P<TO 
LOGTOAL  BASIC, ATRMO 
TTO(J)=MOO(I9ASTS(J)  ,100) 

NPKT(J) =MnO(MAMF( J) ,1C0000)/10 
-INVF.PTS  CUPPFNT  PASTp  VECTOPS  ANR  AOJUSTS  FOP  BOUNDS 
IF ( TTPN.LT .IT  NIMV)  PETUPN 
CALL  MESSG{4DHTNVFPT 

-ITOPATION  of  next  tnvfpt 

TTNINV  =  ITP.Nf  IMVF 

tf(l»pq,o)  goto  if 

-COUNT  MTSSTNC  keys  TO  NKM  AND  CLEAR  BASIS  COUNT 
NKM=r 
DO  F  1  =  1, L 
K=KFYS(T)/10C 
IF(K.EO.Q)  NKM=NKM+1 
KEYS(I) =100*K 
CONTINUE 

IF(NKM.EQ.O)  GOTO  IF 

-FIPST  SCAN  BASIC  COLS  FOP  KEY  CANDIDATES 
JTAG=P 
CONTINUE 
DO  1C  J=MC,NT 
KrNPKT ( J) 

IF(K.FQ.O)  goto  tr 
JTYOF=MOD(NAME( J) ,10) 

IF(JTYPE.NE. JTAG)  GOTO  10 
IF( KEYS (K) /I C 0 » NE . 0)  GOTO  IT 
--SET  COLUMN  J  KFY  TN  "ACKET  K  AND  PFOUCE  COUNT  NKM 

KEYS(K) =100* J 
CALL  SETKEY(J) 

NKM=NKM-1 

CONTTNUE 

IF(NKM,EO.O)  GOTO  IF 
IF( JTAG.NE.2)  GOTO  11 
—  NOW  EXAMINE  FOFE  OPLUMNS 
JTAG=1 
GOTO  6 

CALL^EPPOP{4CHTN\/ppT--SE7EPAL  KFYS  UNMAPKEO-OAT A  E^P.  > 

CALL  ESCAPEIB) 

--NULL  BASTS  EXCEPT  FOP  FPEE  ROWS  SAVTNG  TY^ES 

D-57 


20014030 

20  ijl4049 

2Q01405Q 

20C14CF0 

20C14C70 

2CC14GA0 

20014090 

20G141C0 

2CC14110 

20^14120 

20:14130 

20014140 

2CG1415U 

200141GO 

2C0141TQ 

2Q0141»>G 

20C1419C 

20014200 

20C1421!) 

20014220 

20C14230 

20014240 

2Cul42F0 

20014260 

2QC14270 

200142PO 

200142P3 

2CC143(;0 

2CC1431C 

20014320 

20314330 

20014340 

20C143F0 

20014360 

2C014370 

2C014380 

200143PO 

20014400 

20014410 

20014420 

20014430 

20014440 

2CQ144F0 

2OC144F0 

20014470 
20014480 
20 J1449C 
20014510 
2CC1451Q 
20C14F20 
20014533 
20C14540 
20C1455C 
20C145F0 
20314573 
2CQ14580 
200145P0 


o  o 


15  CONTINUE 

IORG=0 _ _ _ _ 

DO  20  1=1, H 
6ANHA(I)=0.0 

ITYPE=M00(IBAS1S(T) ,1C0) 
IF(ITYPE.NE.3)  IP ASIS (T) =ITYPE 

C - SET  U**  UNIT  BASTS  AND  ZERO  RHS 

00  19  J=1,M  . . 

19  8(IORG+J)=0. 

8(IORG+I)=1.0 

20  IORG=TORG+M 

5 - RESTORE  PHASEl  LOGICAL 

IBASIS(M)=100»MC+TTYPE 


CYCLE  COLUMN  NAMES,  KEY  COLUMNS  TO  KORG,  OTHERS  TO  JORG 
JORG=M*JNCORE  .  - .  -  ■ 


KORG=JORG+M 

c - pkt  is  current  gup  packet, 

PKTO=0 


PKTO  IS  PACKET  OF  LAST  KEY 


DO  200  JNT=1,NT  . .  . .  _  ..  - - 

JTYPE=  MOD(  NAME(JNT) ,10) 

TF(JTYPE.LE.l)  GOTO  200 

c - get  this  bastc/bounof.d/key  col  to  core 

JPOS=JNT 

30  CALL  IN(JPOS, AJ (JORG+1) ,JNCORE+l) 

PKT=NPKT(JMT)  ..  _  _  - 

IF(JTYPE.GE.3)  GOTO  150 

C - BASIC  COLUMN,  IS  KEY  NEEDED 

IF(PKT.EQ.O)  GOTO  120 
TF(PKT.EQ.PKTO)  GOTO  100 

C - GET  KEY  AND  RECORD 

CALL  INPCKO  (  KEYS  (  PKT) Zl 01 1  AJ  (KQRGzl.)  ,  JNCORE+2)  . 
PKTO=PKT 

C— - .REMOVE  KEY  COMPONENT  FROM  COL 

100  bo  110  1=1, M 

110  AJ(JORG+I>  =AJ(JORG+I)-AJ(KORG+I)  . 

C - TRANSFORM  TO  CURRENT  BASIS 


120  IORG=l  .  _  . . .  . . 

DO  130  T=1,M 

ALPHA(T)=OOT(M,R(ipRG), AJ(JOPG+l)) 

130  IORG=IORG-»'M 

C - find  best  row  to  PIVOT 

IROW=0 

CALL  PIVOT  (IRON, 9,  ALOHA)  _  _  . _  _ 

IF(  IROW.EQ.b)  GOTO  200 

C_ - INCREASE  COUNT  OF  BASIC  COLS  IN  PACKET 

IFCPKT.NE.O)  KEYS(PKT)=KEYS(PKT)+1 
GOTO  200 


PICK  UP  RO.UNq  OR  .PHS  OF  PACKET.  . . 

150  IF(PKT.NE.O)  GOTO  155 
BNOJ=BOUNO(JPOS) 

GOTO  156 

155  BNOJ=RHSCPKT+M) 

156  DO  160  J=1,M 

160  GAMMA(J)  =  G.AMMA.(  J).r -AJTJDRG+J)  *PNPJ .  . 
200  CONTINUE 
C 


20014600 

: _ 20014610 

20014620 
.  20Q1463Q. 

20014640 

_ ^2Q,0146M 

20014660 

_ 2D.JDiitfeiO. 

200146PO 

_  _  .20114690 

200147C0 

. . .2001.4710 

20014720 

_ _ 2O0.147JJ0. 

20014740 

. . Z001.4750 

20014760 

2001477D 

20014780 

_ _ 2.0114.730.. 

20014800 

.  . . 20014810 

20014820 

...  20014831 

20014840 

_ _Z0JL14115JL 

20014860 

_  20014870 

20014880 
.  .21014890 
20014900 

_ .20114911. 

20014920 
.  20014930 
20014940 

_ _ 20  Q  1.4951. 

20014960 

_ 2ILD.14971L 

20014980 

_ 20.OJ.4990. 

20015000 
..  20115010 
20015020 

_ 21115031- 

20015040 

.  _  . . .  .21015150.. 

20015060 

_ _  20015070 

20015080 

_ 21115190. 

20015100 

.  20015110 

20015120 

_ _ 20015130 

20015140 

_ 21015150. 

20015160 
. .  2001517.1 


Q - COMPLPTE  basts  with  flPTTFTCIALS 

c - rnuMT  logicals  tm  jl 

JL  =  0 

no  210  1=1, M 

TF(Mnn(  IBASTS  (T  ) ,  1  CO  .NE.  0)  JL  =  Jl  *1 
TF(  IRAGTS (I ) /I OC .NE. C  )  GOTO  21C 
TF{Mr»0(TBASTS(I)  ,100)  .ME.l)  GOTO  205 

C - ^-MAKF  A  LOGICAL  n«ETC  INSTEAD 

IRA STS(T)=100*JL* TOASTS (I) 

GOTO  210 
aCG  CONTTNUc; 

TRASIS(I)  =  10C*(  I+*'’T)  +  IBASIS(T) 

210  nONTTNUE 

0 - AOO  ARTTFICIALS  NEFDEO 

DO  220  1=1, M 
220  nELTA(I)=0.0 
nELTA(M)=1.0 
no  240  1=1, M 

TFdBASISd) /lOG.LF.NT)  GOTO  24C 

0 - ONF  MEEnEO  ROW  T 

nELTAd)=1.0 

TORG=l 

no  230  J=1,M 

ALPHA(J)=  nnT(M  dORG)  , DELTA) 

230  IORG=IORG+m 
nELTAd)=0.0 
CALL  oTVnTd,B,  ALPHA) 

240  continue 
C 

0 - ,40W  USE  P  AND  GAHma  TO  GET  SOLUTION  TO  BETA 

CALL  FEASCHCR) 

return 

END 


2CC151PC 

20015100 

20 G 152  CO 

20C15210 

20015220 

20015230 

2CC15240 

20C15250 

20C152F0 

20015270 

20015280 

2CC1520C 

20015300 

20015310 

20015320 

20015333 

23015343 

20015350 

20C153FO 

20315370 

20015380 

2C01539C 

20015400 

20015413 

20015420 

20015430 

20015440 

2D01545C 

23C15460 

2C015470 

20C15480 

20015490 

20L155C0 


B-59 


SUBROUTINE.  JO(Kni..»  .ft.LPHA.*.  NAWE). - 


0 - GUR  version — APRIL-20-1B71 

C - WRITES  TWO  FILES  OF  A  MATRIX  TO  OISC  IN  STRAIGHT  OR 


COMMON  /FILES/  IA1,IA2,IMAP 

COMMON  /!/  MtL»MPL*MC,NT,ICOST,IC,IPHASE»JRHS,lPI 
COMMON  /ROWTYP/  IPOWTP(lOl) 

COMMON  /UIMS/  MA.XTPtfNTRy,vlNCaREjl!JCRMAX>llSCAN . . 

COMMON  /CORE/  JAPEJdOl)  ,  JAdOl)  tJAKdOl) ,  AJ(IOOO) 
DIMENSION  ALPHAd),IO(100),Od00> 

COMMON  /B/  ALOHBdOO) 

DATA  ZERO/1, E-IO/ 

C 

ENTRY  OUT  .  -  .  --  -  -  -  -  - - - 

C - ^TO  DISC  FILES  IAI/IA2 

C  -  . - 

IF  (KOL.GT.l)  GOTO  10 

REWIND  lAl  - 

REWIND  IA2 

KOL1=KOL2=0  - . . . -  -  - - 

C 

.  c - STRIP  GUBS  AND  PACK  FOR  TWO  FILES 

10  J=K=G 

DO  20  1=1 »  M 

IF(  IROWTR (I) .EO.A  )  GOTO  20 

j=Jd  . . - — . . . . . 

ALPHB(J)=ALPHA(I) 

IF(ABS(ALPHA(I) ).LT.2ERO)  GOTO  23 

K=K+1 

TO(K)=J 

0(K)=ALPHA(I) 

20  CONTINUE  . .  -  .  -•  -  -  - 

NAME=KOL 

WRITE(IAl)  KOLfNAMEf (ALPHBCl)  ,I=1,J) 

WRITF(IA2)  KOL,NAME,Kf CIO(I) ,0(1) ,I=1»K) 

RETURN  .  - 

C 

ENTRY  IN 

C - - - FOR  NORMAL  COLUMNS  FROM  DISC  I.A1 

DO  100  JMT=1,NT 

IF(MOn(KOLl,NT) .NEtO)  GOTO  110  -  -  -  -  - 

99  REWIND  lAl 

REMIND  .  I A2  . .  .  -  -  - - - 

NSCAN  =1+MSCAN 

110  READ(IAl)  K0L1,NAAM, (ALPHA(l) ,I=1,M) 

IF{KOL«LT.KOLl)  GOTO  99 
IF(KOL.EQ.KOLl)  GOTO  101 

100  CONTINUE 

GOTO  300  . . . .  - . . . . 

101  CONTINUE 

C - UPDATE  RECORDS  AND  TRACK  DISC  LOCATION  IN  KOL 

120  CONTINUE 
JCOLsNAME 
JA(JCOL)=KOL 

JAK(JCOLi=  NAAM  . . . . . 

JAREJ(JCOL)=0 

RETURN 


_ _ 2J)J11551JL 

20015520 
PACKED  FI1RM20015530 
200155A0 

. . 21015550 

20015560 

_ 20015.5ZD. 

20C15580 

.  . . .20015590 

20015600 

. . . 20015610. 

20015620 

. . .  . 20515630 

200156A0 

_  . . . 20015650 

20015660 

.  ..  .  20015670 

20015680 

.  .  _ _ _ 20  015690 

20015700 

. .  20015.710 

20015720 

. . .  20015730 

20015740 

_ _ 20015750. 

20015760 

. . 20015770 

20015780 

_  . .  .  .  . 20015790.. 

20015800 

_.  _ 20015010. 

20015820 

20015830 

20015S40 

. ...20015850 

20015860 

_ 20015870 

20015880 

. 20015890 

20015900 

. . .  _.20015910 

20015920 

_  20015931 

20015940 

..  . .  20015950 

20015960 

. . . 20015970 

20C15980 

.  . 200159m 

20016000 

. . . . -  -  20  016010 

20016020 

. .  20016030 

20016040 

_ 20016050- 

20016060 
20015070 


D-60 


c 

EG'JlGuBO 

c 

20015090 

ENToy  INP^S 

2301610C 

c— — 

-TO  GFT  THF  INOUT  FTLF  pOSITIOM 

2CC1611C 

KOL^KOLl 

20016120 

'PETUPM 

2CC16133 

c 

20G1614C 

c 

20016150 

FMTPY  TNPCKO 

2C016160 

C-— 

- ftUXILIARY  FILE  FOR  KEYS 

20016170 

on  ?C0  JNT=1,NT 

200161PO 

IF(  M0D(K0L2,MT)  .ME.fj)  GOTO  199 

20016190 

iqs 

PPWINO  Tfl2 

20C162CO 

199 

PEA0(IA2)  KOL2,NaflM,K,(IO(I) ,0(1)  ,I=1,K) 

20016210 

TF(KnL,LT,K0L2)  GOTO  195 

20016220 

IF(K0L2.EQ.K0L)  goto  201 

2CC16230 

20C 

CONTINUE 

20C16240 

GOTO  300 

20016250 

CONTINUE 

20C.16260 

c— — 

-UNPACK  n  TO  ALPHA 

2CC1527C 

no  210  1=1, H 

20C162B0 

210 

ALOHA(I)=C. 

20016290 

if(k,eo.0)  goto  i?n 

20C16300 

DO  220  1=1, K 

20016310 

j=in(T) 

20C16320 

220 

ALPHA(J)=D(T) 

20016330 

GOTO  120 

20C163A0 

C 

20016350 

c— — 

-TOOURLE 

20C16360 

300 

CALL  EPPOP  (40HIO — COLUMN  NOT  LOCATED  IN  NT  RFAOS 

)  20016370 

CALL  ESCAPE!  R  ) 

20016380 

ENO 

20016390 

SUBROUTINE  KEYCHt JCOL , I9pW.,B) _ _ _ 

GUR  VERSION 'APRTL/ri 

COMHON  /!/  M,L,MPL,MC,NT,ICOST,in,TPHASE,JRHS,IPI 
COMMON  /BASIS/  IB ASIS (101 ), KEYS ( 1011 
COMMON  /NAMES/  NAME(IOO) 

COMMON  /A/  ALPHA(lOl)  /B/  BETAdOl)  /C/  GAMMA(lOl) 

REAL  B(l>  . . . . . —  - 

NOKT(J>sMOO(NAME(J) *10000 0)/10 
ITD{J) =MO0 (IBASIS  (J) » 100) 


_ _  g0D16»C0 

20016410 

20CL6420 

20016430 

_  _  20016440 

/O/  DELTA (ioi)  20016450 

_ _ 2QJilM.6i)_. 

20016470 
_  ,  .  20016480 

20016490 


-INTERCHANGE  KEY  WITH  FIRST  BASTC  COL  IN  KEYS  PACKET.  . 
RETURNING  ROW  OF  NEW  BASIC  COL  (OLD  KEY) 

JCOLPK=  NPKTCJCOL).„  .  _  _ - - - 

FIRST  BASIC  COL 

no  10  1=1, M  .  .  .  . 

JKEY  =  IBASIS(I)/10C 
IF(JKEY.GT.NT)  GOTO  10  .  .. 

IF(NPKT(JKEY) .EO. JCOLPK)  GOTO  20 

CONTINUE  . .  . —  - .  - 

CALL  ERR,OR(40HKEYCH— ESSENTIAL  PACKET  NO  BASIC  COL 
CALL  ESCAPE 


_ 2aai6.5.Dfl 

20016510 

_ .ZMXftSZSi 

20016530 

.20016540, 

20016550 

20016560 

20016570 

_ _  __  2O0165.8J) 

)  20016590 

20016600 
20016610 


RE-DIFFERENCE  BASIS  INVERSE  TO  MAKE  JKEY  KEY 
TROW  =  I 

JORG  =  MnRPW-M  _ _ _  _ _ 

DO  30  J=1,M 
B(JORG+J)  =-B{JORG+J) 

I0R6  =0 

DO  50  I=1,M  . - 

IF(I.EO.IROH)  GOTO  50 

I8=I8ASTS(I) /lOO  _  _ _  - . . .  -  -  _ 

IFdB.GT.NT)  GOTO  50 
TF(NPKT<IB) .NE. JCOLPK)  GOTO  50 
bo  40  J=1,M 

B(J0RG  +  J)=8(J0RG+J)-B(I0RG+J)  . .  . 

IORG=IORG4-M 

NEW  KEY  IS  MOW  JKEY ~ 

CALL  SETKEY(JKEY) 

KEYS(JCOLPK)=  100*JKEY+  MOO(KEYS (JCOLPK) ,100) 

-COL  JCOL  IS  NOW  BASIC  . 

CALL  SETBN8(JC0L) 

IBASIS(IROW)  =100*JCnLtITP(IRpW) . . . 

REARRANGE  SOLUTION 

MPK=M+JCOLPK  .  . 

SUH=ALPHA(IROW) 

ALPHA(IROM)=ALPHA(MPK)  . . 

ALPHA (MPK)=SUM 

SUM=  BETA(IROM)  . . .  . . . 

BETA(IROW) =BEfA (MPK) 

BETA(MPK>=SUM 

RETURN 

END 


__200166?0 

20016630 

_ _ 20,0166411. 

20016650 
..  ....  20016660 
20016670 

. . .  .  20016680. 

20016690 

_ 2.0.0167  0.0 

20016710 
20016720 
20016730 
20016740, 
20016750 
_  20C16760_ 
20016770 
20016780 
20016790 
2001680,0 
20016810 

_ 21L!1J682,Q. 

20016830 

._20D16840 

20016850 

_ 20016860 

20016870 

_ 2D.Q1.6Mil.. 

20016890 

_  _ 20016900. 

20016910 
.  _  20016920 


o  o  o  o 


FUMPTION  KEyFNO(PKT) 

COMMON  /flOPF/  JAPFJ(lCl)  ,  JA(lOl)  ,JA<(lCl),a-J(100C) 
COMMON  /LIM'?/  MAXTPY,NTPY,JNCORE»NCRMAy,NSnAN 
COMMON  /NAMES/  NAMFdOO) 

COMMON  /OASTS/  IPASIS(lOl) ,KEYS(101) 

TNTEGE®  P<T 

NP<T(I)=MOD(NAMF(T) , ICOOOC) /lO 

- GIVEN  PACKET  NO.  PKT ,  FIND  TTS  KEY  TN  COpE 

TF(PKT,FO,0)  GOTO  ICO 
KEY=KEYS(PKT) /ICO 
00  PO  K=1,JNC0RF 
IF( JA(K) .EQ.KEY)  GOTO  30 
20  CONTINUE 
KEYFMO=0 
PETUPN 

30  KEYFNr)  =  K 

PETUPN 

- FINO  THE  FIRST  KEY  WITH  NO  COLUMNS  IN  CO^E  FOP.CKECK 

100  DO  130  K=l»JNCOPE 
JAK=JA{K) 

JTYPF=MOO(NAME(  JAK)  ,10) 

IF( JTYPE.NE.L)  GOTO  130 
JO!<t=NPKT(  JAK) 

DO  1?0  J=l,JNCOPE 
JAJ=JA(v)) 

jTYPF=MOn(NAME(JAJ) , 10) 

IF(JTYPE.EQ.4)  GOTO  l?3 
IF(JPKT.EQ.NPKT (JAJ) )  GOTO  130 
120  CONTINUE 
GOTO  30 
130  CONTINUE 
KEYFNO=0 
PETUPN 
FNO 


20016030 

2Cul60£*C 

20016960 

20C16960 

2CC16970 

2CC169flO 

20016990 

20017000 

2CG17010 

20C17C2G 

200170‘^0 

20017040 

20017050 

20017060 

20017070 

200170EC 

20017090 

20C171C0 

20017110 

20017120 

20017130 

20C1714C 

2CC171EC 

20017160 

20017170 

20017100 

20C171PC 

20017200 

20017210 

20017220 

20C17230 

20C1724C 

20017250 

20017260 

20017270 

20017200 


oo  oo  o  ooo 


SUBROUTINE  MA.OI N (B).„ _ _ ^ _ 20017gQQ 

- GU9  VERSION  APRIL  2C/71  20017300 

- ADOS  SPECS  FOR  BOUND/BASIC/NULL /KEY  VARIABLES  AND  INVERSE_IF  “RESE20017.310 

- -OBTIONALLY  CALLED  BEFORE  INVERT  20017320 

COMMON  /STATE/  JPOS, IRON,  JCOL,  JOUT,  ITRN,NREJ ,NPIF,  NOJS _ _200_i7_330 

COMMON  /BASIS/  TBASTS (101 ), KEYS ( 101)  20017340 

COMMON  /A/  ALPHA (.IQl)  /B/  .BETAIlj}!)  /C/.,.GAM.MA (lDlI_./JD/._D£Llfl.miJ ..■■20 017.3^0. 
COMMON  /!/  M,L,MPL,MC,NT,ICOST,IC,IPHASE,JRHS,IPI  20C17360 

COMMON  /FILES/  IAl,IA2tIMAP  20Q11370 

COMMON  /INPUT/INPUT, INPUTM,TNPUTN  20017380 

COMMON  /TOLS/  OJTOL»ZERO,P1VTQL,CTOL,PERTOL.,OERTOL . . 20D17.39J 

COMMON  /NAMES/  NAME(IOO)  20017400 

COMMON  /BOUNDS/  OOUNDS  (IQ Q)  ,TB0S  (ICO). j  NODS  .  .  _ .2ii!17itlQ 

COMMON  /PARAMS/  TMAX, ITNINV, INVF ,K1,K2 ,K3, K4,K5  20017420 

real  B(1)  .  . .  . , _ 21)017430 

DIMENSION  CARO(8)  20017440 

INTEGER  NAMES(5)  2Q01745Q 

INTEGER  PKT  20017460 

PEAL  NULLtKEE.INVERS  . . . . .  ..  .  _ _ .20 0174.7 Q 

DATA  BASIC/5HBASIC/,ATBN0/5HATBND/,ENDER/5HEN0  / ,ROWS/4HPOWS/  20017480 

+  ,NULL/4HNULL/,  KEE/3HKEY/ ,  TNVEPS/5HINVER/  . .  . . .20017490 

+  ,REMIN0/6HREMTN0/  20017500 

TTP(J)=MOO(IRASIS(J)  ,100)  _J:0C17510 

NPKT(I)=  MOD(NAME(T) ,100000)/10  20017520 

- SETS  basic  COLUM.NS  AND  j.0G1.CALS_ . . - . - _ 2.0.017.530. 

CALL  MESSG(40HMAPTN  )  20017540 

REMIND  IMAP  .  . . . . .  20.017550 

10  READdMAP  ,11)  TYPE1,TYPE2,  (NAMES(J),J=1,4)  20017560 

11  FnP.MAT(2A5,4I10)  .  _  2.0017570 

IF(M0D(K3,3)  .EQ.O)  WRITE(6,12)  TYPE1,TYPE2, (NAMES( J) ,J=1,4)  20017580 

12  FORMAT  (X,2A_5j4I10)  _  _  .  _  _ _ i0Jil.7.5aD. 

IF(TYPE1.EQ. BASIC)  GOTO  30  20017600 

IF(TYPEl.EQ.KEE)  GOTO  50  ...  ...  20017610 

iF(TYPEl.E0. ATBND)  GOTO  15  20017620 

IF(TYPEl.EQ.NULL)  GOTO  60  _  _  __  _  __20Q17630 

IF(TYPEl.Eia.INVERS)  GOTO  95  20017640 

TF(TYPEl.EQ.ENOER)  RETURN  _ _  _ _  _ _ 1 _ 20017650_ 

CALL  ERR0R(4bHMAPIN-''-UNREC0GNI7E0  TYPE  CARO  IN  DATA  )  ~  2'oll7660 

RETURN  .  20017670 

20017680 

- ADO  AT  BOUND  COLUMN  SPECS  .20017690 

15  OO  20  J=l,4  20017700 

ID=NAHES(J).  _ _  EflOlIZliL 

IFdO.EQ.Ci)  (SOTO  '26  20017720 

ID=ID+MC  .  .  . . .  20017730 

BNOJ=BOUNO(ID)  20017740 

TF(BNOJ.LT.l.E8)  GOTO  19  .  .  _  .20017750 

CALL  ERROR (40HMAPIM — ATBND  COLUMN  NOT  BOUNDED  IBDS/BDS  )  20017760 

CALL  OUMP( IBOS (1)  ,LlBnS(.NBDS)  ,  2  j  BOUNDS  (  IJ  ,..B.OUNpS  (.NODS)  ,1.) _ 20017770 

GOTO  20  20017780 

19  CONTINUE  .  . . . . . . . 20Q17790 

CALL  SETBNO(ID)  200178C0 

20  CONTINUE  2001781.0 

goto  10  20017820 

....  -  .  _ _  _ _ _ - _ _ ^IL17fi.3Q. 

- BASIC  COLUMNS  ADDED  20017840 

30  IF(TY»E2,EQ.ROMS)  GOTO  60  _  .  ._  _ _  20017850 
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r 


40 


0 

c— 

50 


55 


C 

C  — 
5u 


70 


C 

C  — 

«0 


90 


C 

C  — 
95 


96 

97 


C  — 
96 


C 


C 


90  4C  J=l,4 

1P(TO.F9.0)  OOTO  4C 

Tn=TO+HC 

0!ML  9'^TR9B(I0) 

rONTTMUF 

GOTO  10 

ENTER  KEY  COl  UMN?  TF  ^  GUR  PPORLFM 
TF(L.EQ,P)  goto 
no  55  1=1,4 
ID=MAME5(T) 

IF  (  in.EQ.O  )  GOTO  10 

in=ID+MC 

P<T=NPKT(in) 

TF(PKT.FO,0)  GOTO  55 

jn(|T=KFYS(PKT)/l  Cf 

TF( JOUT.NE.O)  CALL  SFTKEY (-JOUT) 

CALL  SETKEY(Tn) 

KEYS(PKT)=10C*in 

CONTTNUE 

GOTO  10 

■PASTC  POW-COL  DATA  FOP  ENTRY  OF  POM  LOGICAL^ 
no  7C  J=l,4 
in=MAMES{J) 

IFdn.FQ.OGOTO  70 
CALL  SETBNRdO) 

continue 

GOTO  10 

•SET  MULL  COLUMNS 
no  no  J=l,4 
Tn=NAMES(J) 

TFdn.EQ.O)  GOTO  OG 

iD=Tn+Nn 

CALL  SETNNNdO) 

CONTINUE 
GOTO  1C 

•CHECK  FOP  INVERSE  AT  FNO  OF  TNPU^  TAPE  OR  SKIP 
MN=M*M 

REAOdNOUT)  (9(  J)  ,J=1,NM) 

IF(EMOFILF  INPUT)  1C, 96 

READ (INPUT)  (T9ASTS( J) ,RFTA(J) , J=1,M) 

IF(ENOFILE  INPUT)  1C, 97 

IF(L.NE.C)  RFAO(TmpUT)  (KEYS (J) , "ETA ( J+M) , J=1 ,L) 
IF(ENOFILE  INPUT)  10, QR 
•SUCCESSFULL,  SUPPRESS  INVERT 
ITNINV=INVF/? 

CALL  MSSG(40HST  APTEn  FROM  GIVEN  INVERSE  ON  INRiJT 
-RESET  INduy  file  FOP  mAPOUT  TO  OVEPWRITE  LAST  INVERSE 
PACKSOACE  INPUT 
BACKSPACE  INPUT 
rF(L.FO,0)  GOTO  IC 
RACKSOArr  INPUT 
GOTO  10 
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20017860 
2CC17873 
20ul78n0 
20C17890 
20017000 
20017910 
20017920 
200179T0 
20C1794C 
20C17950 
20017960 
20017970 
2CQ179'»0 
20017990 
20016000 
20D16C10 
20C16020 
20018070 
2001604Q 
20C18050 
20C16060 
20C16C70 
20013060 
20018090 
2CC161f 0 
20016110 
20016120 
20C18170 
20018140 
2DC18150 
20018160 
20013170 
20018160 
20C18190 
?oni62ro 
20016210 
20016220 
20018230 
20016240 
20C1625Q 
20018260 
20013270 
20016280 
200132QC 
20C163C0 
20018310 
20018320 
20016330 
2C016340 
2CG1335C 
20016360 
20G13370 
20016360 
20018390 
200164CC 
2C016410 
20016420 
2CC16430 


ENTRY  INMAP  _ _ _ - - 

C - reads  map  cards  from  input  to  file  IMAP  AND  TERMINI 

CALL  MSSG(*tOHINMAP  LOOKED  FOP  MAP 
DO  200  1=1,1000 
REA0(5,2)  CARD 
IF(ENOFILE  5)  201,190 

199  CONTINUE  -  . . 

2  FORMAT(8A10) 

IF  (CARO(l) .EQ.ENDER)  GOTO  201 
IF(CARD(1> .EQ.REWTNO)  GOTO  202 
WRITE(TMAP,2)  CARO  .  .. 

1999  CONTINUE 

200  CONTINUE  . . - . - 

C - ends  the  MAOOUT  CAROS 

201  WRITF(IMAP,2)  ENDFR  . 

RETURN 

202  REWIND  IMAP 

CALL  MESSG{40H1NMAP— DELETED  EXISTING  MAP,  IF  ANY 

GOTO  1999  .  . . .  - . —  —  -- 

END 
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SUTPOiJIINf:  MftPnUT('l) 

r,UO  VEPSTftM  APPTL-2C-71 

OUTPUTS  THE  FINAL  «ASIS  FOP  MAdtn  USE 


’COMMON  /NAMFS/  NAMF(IOO) 

COMMON  /PASTS/  inflSISdOl)  ,KFYS(1G1) 

COMMON  /A/  ALPHA(lCl)  /B/  BETAdLl)  /C/ 
COMMON/I/X/TY (100)  /XX/  X(IOO) 
common  /INPUT/IN»UT, INPUTM,IN'’UTN 
/FILES/  IA1»TA?,IMAP 

/I/  m,l»MPI ,Mr,NT,ICOST,TS,IoHASE,JRHS,TPI 
/LIMS/  MAXT»Y,NTPY, JNCOPP ,NCPMAX 
/COPE/  JAPEJdOl)  ,JAd01)  »J8KdGl)»  AJdOOC) 
/PAPAMS/  TMAX,ITNTNV,TNVF ,K1,K2 ,KS,K4,K5 
/POUNDS/  POUNOSdOO)  t  IBBS  dCO)  ,N9nS 
EOUIVALENCE  (MAPKFVjAJ) 
niMFNSION  MAPPAS (100 ) »MAP 
peal  BCD 


GAMMAdOl)  /O/  OELTAdCl) 


COMMON 

COMMON 

COMMON 

COMMON 

common 

COMMON 


BNDdO  ■)  tMAPNLLdO)  , MAPKE Y  (10  3  0 ) 


CALL  MESSG(4CHMAPOUT 
PEWIND  IMAP 
JNCOPE=0 
DO  BO  1=1, MC 

IF(NAMF (I) .NF.2)  GOTO  50 
WPITF(IMAP,l)  I 
format  dOHPASICROWS  ,110) 
CONTINUE 


K=INLL=IPND= IOAS=IKFY=0 
CLEAR  SOLUTION  SPACE 

nvaps=tnpjtm+nbds 
DO  6C  T=1,MVAPS 
TX(T)=0 
X  (I)=3. 

MP1=MC-H 

no  40  I=HP1,NT 

JCOL=I-MC 

J=MOD(NAHE(T) ,10) +1 
0010(10,40, 20, 30, :^5)  ,J 


TNLL=TNLLfl 
MAPNLL(INLL)=JCOL 
GOTO  40 
TBAS=TBASfl 
MAPBASdBAS)  =JCnL 
DO  25  TP=1,M 

TF(IPASTSCIP)/1C0.EQ.T)  GOTO  26 

CONTINUE 

<=K  +  1 

IX(K)=JCOL 

X(K)=BETA(IP) 

GOTO  40 
T9ND=IBNr)<-l 
MAPBND(IBNO)  =JCnL 
<=Kfl 

IX(t<)=JCOL 

X(K)=BOUND(I) 


20013650 

20013660 

20013670 

20013660 

20013650 

200137C0 

20C1371C 

23C1372Q 

20C18730 

20013740 

20C13750 

20013760 

20C1377& 

20C1373C 

20.013700 

20013800 

20013310 

20013320 

20013330 

20013340 

200138^0 

20018860 

20018370 

20018830 

20013390 

20013900 

2CC18910 

2CC13920 

20013930 

20013940 

2C018950 

20018960 

20013970 

2CC13980 

20C1399C 

20019000 

20C19P10 

20019020 

20C19030 

20019040' 

2C019050 

23019060 

20019070 

20019080 

2J019C93 

200191C0 

20019110 

20019120 

20019133 

20019140 

20019150 

20019160 

20019170 

200191OQ 

20(3191PC 

20019200 

20019210 


35 


36 

37 


40 


2 

3 

4 

5 

6 
7 


598 

599 

600 
601 

602 

603 

604 
C— • 

701 


702 

700 


GOTO  40 

TKeY=IKeYtl  _  _ _ 

MAPKEY(IKEY)=JCOL 
00  36  IR=1,L 

IF(KEYS(TR)/100.EQ.I)  GOTO  37 
CONTINUE 
K=K+1 

IX(K)=JCOL  . 

X(K»=BETA(IR+M) 

CONTINUE 

IFdBftS.NE.OJ  HRITE(IMAP,2)  (MAPOASd)  ,I=1»1BA9) 
IF(IBNO.NE.O)  HRITFCTHAP,3)  (MAP9ND (I) , 1=1 , IBND) 
IFCINLL.NE.O)  HRITEdMAP, 4)  (HAPNLL (I)  ,  1=1  ♦  INLL) 
IFdKEY.NE.O)  WRITE(IHAO,.6J.  (HftPKEY  (I)  ^=1 » IKEIU 


FORMATCIOHBASIC  ,4110) 

FORMAT (lOHATBNO  ,4110) 

FORMAT (lOHNULL  ,4110) 

format (lOHENO  ) 

FORMATdOHKEY  ,4110) 


20019220 

_ 2aniaz3a. 

20019240 

20019250 

20019260 

20019270 

20019280 

- 29013290. 

20019300 
-  20019310 

20019320 

. -..20019330 

20019340 

_ J20O193SO 

20019360 
..  20019370 

20019380 
20019390 
20019400 


FORMAT  (lOHINVERSE  .  )  _ _  _ ___20ai9410 

IF(MnO(K3,2) .NE,C)  GOTO  598  •  20019420 

PLACE  BASIS  ON  END  OF  INPUT  TAPE,  AFTER  ANY  THERE  ALREADY... . .  .  20019430 


MM=M*H 

WRITE(INPUT)  (B (T) ,I=1,MM) 

NRITE(INPUT)  (IBASIS(J),BETA(J) ,J=1,M) 

IF(L.NE.O)  HRITEdNPUT)  (KEYS!  J)  , BETA  (  JtM)  ,  1=1, LI 
HRITE<IMAP,7) 


20019440 

. -  _  20019450 

20019460 

- 20019470- 

20019480 


MRITEdMAP,5)  _  20019490 

IF(M0D(K3,5)  .NE.O)  RETURN  20019500 


WRITE(6,601)  .  20019510 

FORMAT (*OCURRENT  SOLUTION*/*0  BASIS  VALUE  -PI») 20019520 


WRITE(6,602)  (IBASIS d) , BETAil) , aCIPI+ 1=1) ,1=1, Ml 
F0RMATdl2,2E12.4) 

>IRITE(6,603)  <KEYS(I)  ,BETA(I+M)  ,I=l,L) 

FORMAT(*0  KEYS  VALUE*/{112,F12.4) ) 

HRITE(6,604)  CIX (I) ,X (I) , I=1,K) 

FORMAT  (♦OSOLUTION  VECTOR,  PACKEO»/dl2  ,E12 .4)  ) 

■PRICE  OUT  REMAINING  VECORS .  _ 

MRITE(6,701) 

FORMAT (♦OREMAINING  VECTORS*) 

00  700  J=MP1,NT 
JTYPE=HOD(NAHE{ J) ,10) 

IF(JTYPE.EQ.2)  GOTO  700 
CALL  INCJ,.GAMMA,1> 

OJVAL=DOTS(M,BdPI), GAMMA)  '  ^  . . 

WRITF(6,702)  J, DUVAL, NAHE(J) 
F0RMATdl2,12X,E12.4,I12  ) 

CONTINUE 

RETURN 

END 


- 20  01 9930. 

20019540 

- . -  20  019550 

20019560 

. . 20019570 

20019560 

. . 20019590 

20019600 
.  .  -  20019610 

20019620 
20019630 
20019640 

- - 2001965.0. 

20019660 

. . -  20.019670 

20019680 

- .  20019690. 

20019700 
_ 20019210. 


SUnPOtJTIME  PTVnT(TPnw,B,HLPHA> 

C - PIVOT  ALPHA  INTO  P  ROW  IROW 

nO‘<'<ON  /MAHES/  NAMF(IOO) 

COMMOM  /PASIS/  lOASI'JdOl)  , KEYS  ( 101) 

OOMMON  /STATF/  JPPS 

COMMONj  /T/  M»L»MPL,MO,NT,TCOST,ir,IOHASE,JRHS,TPI 
COHMom  /tolS/  DJTnL,7ERri,PIVTOL,OTOL»PERTOL,DEPTOL 
roMMOM  /OARAMS/  Tr''AX,ITMTMV,INVF»Kl,K2tKT,K4»K5 
REAL  ALPHA (1) ,B  (1) 

NPKTM)  =M00(HAME(T)  ,10000  0)  /  ID 
C 

C - CHECK  ALPHA  HAS  A  POM 

TFdPOW.EQ.O)  GOTO  PC 

c - mopmaltse  row  ipow 

1  CONTTHUE 

TOOG=H* (IROW-1) 

PIV=1. 

IF  (ALPHAdROW)  .FO.1.0)  GOTO  ?0 
IF(  ARS{ALPHA(TROW)  ).GT.PIVTOL)  GOTO  5 

CALL  ERROR  (40HPIVOT— PIVOT  LESS  THAW  PIVTOL  > 

CALL  ESCAPE(O) 

5  PIV  =  1.0/ALPHA  dPOW) 

00  10  1=1, M 

10  R(inPG4-T)=  RdOPG  +  T)*PIV 

C - PIVOT  OP  FOR  ROW  I,  LEAVE  ALPHA, 

20  00  30  1  =  1, H 

IF(  T.EQ.rROW)  GOTO  -^O 

IF(  ABS(  ALPHAd) )  .LT.ZERO)  GOTO  33 

JOOG=M*{T-1) 

PIV  =  ALOHAd) 

on  j=i,M 

25  P (jnPG+J)=B( JORG+J)-PIV  *B(IORG+J) 

30  CONTINUE 

return 
C 

C - FINO  BEST  ROW  TO  PIV^T  ALPHA  INTO  B 

90  continue 

pTV=PIVTOL 

00  ion  t=i,m 

c - CHECK  FOR  FREE  LOGTCALS 

JP=IBASTSd) /IOC 

IF( JP.NE.JOOS)  GOTO  09 

TROW=I 

GOTO  1 

99  IF(JP.ME.O)  GOTO  100 

C - 7EOO  BASTS  FNTPY  AT  T 

OIVOT=ABS(ALPHA(T)) 
ifcotvot.lt.ptv)  goto  lao 

PIV=DTVOT 

IPOW=I 

100  CONTINUE 
TFdROW.FQ.O)  GOTO  ISO 

C - BEST  ROW  TO  ADO  THIS  COLUMN  IS  IROW 

lot  CONTTNUF 

T BASIS (TROW) = 10 0* JPOS+IBASIS (IRO W) 

GOTO  1 

C - THE  COLUMN  IS  NO  GOOO  ANYMHEPE  AT  ppESENT,  OPOo  FROM  BASIC  SET 

D-69 


2GC19723 

20019730 

20019740 

20C197FC 

20019760 

20019770 

20019780 

20C197RO 

200198CO 

20019813 

20019820 

2001983C 

20019840 

20019850 

20.019860 

20019870 

20019880 

20019890 

200199C3 

20019910 

2CC19920 

20019930 

200199^3 

20C19953 

20019960 

20019970 

2CC19980 

20019993 

20020000 

20020010 

2CC20C20 

20020030 

2002C04C 

20020050 

20020063 

20020070 

2002QC80 

20C2u090 

23G201C0 

20023110 

20020120 

200201TO 

20323143 

23020150 

2CC20160 

20020170 

20023182 

20020190 

20D202CO 

20020210 

2C02J223 

20020233 

20020240 

20C20250 

20020260 

20020270 

20020280 


150 

151 


CnNTINUE 

CALL  SETBNBC-JROSI _ _ 

IF(MOD(K3,13) .NE.O)  BETURN 
MRITE(6,151)  JPpS 

FORMATdH  ,»PIVOT  HROPOEO  COLUMN*  16  ) 


20020290 

20020300 

20020310 

20112032.0 

20020330 


RETURN 


END 


20020350 


D-TO 


oo  OO  OO  OOOO  DO 


SU'«PnUTINE  »PIMfiL<P) 

C - GUR  VEPStni^  ftPPIL/71 

COMMON  /MnVF«:/  '’■MPTft,«}Nr)j,nMAy,^PMLEP,r)UALEP 
COMMON  /TOLS/  OJTnL,?EPO,PIVTOL,CTOL,«»EPTOL,nEPTOL 
COMMON  /STATE/  Jof'StTPOW, JCnL,J0UT,ITRN,NPFJ,NOXF,NnjS 
COMMON  /oARAMS/  TMAX,TTNINV,INVF,K1,K2,KS,K4,KS 
COMMON  /LIMS/  MAXToy ,nTPY, JNCOPE fNCRMAy,NSCAN 
COMMON  /COPE/  JAorjd 01) , JA(iai) »JflK<lCl» » AJ(IOOC) 

COMMON  /T/  M,L,MOL,Mf',NT,ICn<^T,IC,TOHASE,JRHS,IPT 

COMMON  /A/  ALPHA(ir’l)  /O/  PETAd  1)  /C/  GAMMA(lOl)  /O/  OELTA(lOl) 
COMMON  /OASIR/  ir’ASTS  (101)  , KEYS  { 101) 

COMMON  /njS/  OJdCG) 

COMMON  /names/  NAMP(IGO) 

COMMON  /?4S/  RHSdOO) 

PEAL  Bd) 

LOGTCAL  BASIC,ATomd 
ITP(T)  =Mnr)(IBASTF(T)  ,10) 

ATBNO(I)=MOO(NAMF{T)  ,10)  .EO.’’ 

NPKT(J) =M00(NAME{ J) ,100000)/10 
C 

CALL  MESSG(4CHPRTMAL  ) 

C 

TROW=JCOL=NRrJ=NnFG=C 

CALL  STAT'JS(40HPPTMAL— PEGIN  ) 

TOGO  CONTINUE 

C - FIND  THE  COST  ROW 

IC=ICOST 

IF  (  IPHASE.EQ.l  )  IC=  M 
keep  PHASEl  POST  7FRO  IN  PHASE  2 
PHASE  1  COST  IS  FPFF  IN  PHASE  1 
IBASIS(M)=100»(IPASIS (M)7l0a) 

IFdPHASE.EQ.  1)  IPASIS(M)=IBASIS(M)+3 
PICK  UP  NEW  PI 
Ioi=l+M*IC-M 

CUTOFF  FOR  OFGENFpACY  REJECTS 
NOEGLM=0 


2n020SEJ 

20020370 
23020380 
20C2C39C 
20C20400 
20C23410 
20023420 
20C23430 
2C020440 
20023450 
20C2046C 
20020470 
20020480 
2002U4QC 
20020500 
2CC2051C 
20C2052G 
20020533 
2002D540 
20020550 
20G20E60 
20 r 20570 
20020580 
20C205PC 
201206(0 
20C20610 
20020620 
2C02063C 
20020640 
?00206‘:0 
20020660 
20020670 
20C20680 
20020690 
2CC207G0 
20020710 
20C20720 


•♦♦•♦BASIC  CYCLE  OF  2  PHASE  ♦♦♦♦ 

I  ITPN=H-ITRN 

THETA=BNnj=IPOM=JCOL=JOUT=JPOS=0 

- LOCATE  PIVOTAL  COLUMN 

30  CALL  COLUMNC  JCOL.B) 

IF(  JCOL.NE.O)  goto  50 

CALL  XCHFCK(6HPRIMaL ,4HQUTT,P) 

- OPTTMUM,  check  MOOE  =  PHASEl/  PHASE2/  NOFEAS 

TF(  TPHASE.En.2)  GOTO  2000 

IF(  ABS(RETA (IC) ) .LT.CTOL)  GOTO  10(0 

CALL  NO  FEAS 

PETUPN 

- STEP  PROCEDURE  FOP  IN  CORE  COLUMN  JCOL 

50  CONTTNUE 

C - LOCATE  COLUMN  POSITION  ANO  noUNn 

JPOS  =  JAtJCOL) 

BNDJ  =  BOUND (JPOS) 


2CG20730 

20020740 

20020750 

20023760 

20020770 

20020780 

20120790 

20020800 

20020810 

20020820 

20C20830 

20020840 

20020850 

20C20860 

20020870 

20320883 

20323890 

2002C9C0 

20C2C91C 

20023923 


D-71 
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- locate  pivotal  ROM. IROtt. -AMD  . step  THETA- 

CALL  ROMCTHETA,  IPOM,  JCOL,  TTYPE,0> 


20020030 

_ 200200faA 

20020950 
■  -■EO  020960 
20020970 
__2iU1209BA 
20020990 


r.;L'S2SK;Sip.?Sn.SSau,T.B.  --  ; . - - - - iSotslfo 

. . .  ■ - - 

RETURN  _ _ gnn?i  nnn 

-  20021010 

-DEGENERACY  AMO  PIVOT  CHECKS  _  -  - - - 

IF(  ABS (ALPHA (IRON) ) .GE.PIVTOL)  GOTO  65  15021030 

IF(NREJ»LT,2)  GOTO  62  -  - - - 

MRITE(6,61)  JA{JCOL),IROW,  ALPHA  (IROH)  ,BETA(IROM)  20021050 

FORMAT  (20X,»REJEC.TED  CQLUMN*I5*_-RDH*XS*_.  .EIiLQI.*Ei2*Ai — RHS* FI  2.4)^021^ 
CONTINUE 

JAREJ(JCOL)  =  l  - . . 


NREJ  =  1+NREJ 

IF(NREJ.NE«5)  GOTO  64  -  . . -  - 

-RE-INVERT,  CLEAR  REJECTS  AND  CONTINUE 

itninv=itrn.  _ _ _ _ _  --  -  - - - - 

CALL  INVERT(B) 

DO  63  J=1,JMC0RE  .  -  -  - -  - 

JAREJ(J)=0 

CONTINUE . . . - .  - . —  - 

IF(NREJ.LT.IOO)  GOTO  30 

CALL  ERROR (4JlHPRlMAL--TOO_JiANY  .REJECI- .VECTjaS-l - 

-TRY  ENDING  IF  PHASE  2 

IF(IPHASE.EQ.2)  GOTO  2000  - -  - - 

CALL  ESCAPECB) 

IF(  ABS(THETA*OJ(JCOL) ) .GE.CTOL)  GOTO  70 

IFCNOJS.EQ.l)  .G.DtO-7JL - - - - 

IF(NDEG.GE.MOEGLM)  GOTO  70 

flOEG=l+NOEG  - .  . . . . 

JAREJ(JCOL)=l 

GOTO  30  . -  . . . . 

-CHECK  EXCEED-  BQlIMIl_DlL_JRQS.ss.r-_.  XJEQS.-M(1VES.  Jl£L_QR_ilEF_... 
CONTINUE 

CALL  XCHECK(6HPR1MAL,3HEN0,B)  -  -  - 

IF<  ABS  (THETA)  +  ZEPO.LT.BNOJ)  GOTO  «0 

ITYPE=1  . -  -  -  — - -- 

-SUPPRESS  PRICING  NFXT  TIME 

_NREJ=1_ _ _ _ _ _ ^ - 

-JOUT=0  KILLS  STATUS  PRINT 

JOUT=0  -  --  - - -  - - 

IF(THETA.GE.O.O)  GOTO  75 

-XJPOS  COMES  OFF  BOUND  .,  THETA  MEG,-.  ._  . . .  . 

CALL  SETBMO(  -JPOS  ) 

THETA=  s_BNDJ _  _ _ _ 

GOTO  90 

-XJPOS  GOES  TO  BOUND  .  .  -  --  - 

CALL  SETBMO(  JPOS) 

THETA  s  BMDJ  .  -  -  . . 

GOTO  90 


•PICK  UP  REJECTEO  COL,  CHECK  FOR  KEY  CHANGE 
CONTINUE  . 


20021090 

_ 2002110-0- 

20021110 

___2MZ112SL 

20021130 

_ 20-021146 

20021150 

_ 20021160 

20021170 

pnnyiiBO 

20021190 

_ 20021200 

20021210 

_ 20  021220 

20021230 

pnn?124iL 

20021250 

_ .20-021260 

20021270 

_ _ 20021200 

20021290 

9nn?iTcnn 

20021310 

_ 2-002-1320 

20021330 

_ 20  0  21340- 

20021350 

_ 20021360. 

20021370 

_ 20021300- 

20021390 

_ 20021400 

20021410 

_ 2nn?1420. 

20021430 

_ 20021A40 

20021450 

_ 20021460- 

20021470 
_ PnnglfcBA 

20021490 
_ 20021500- 


ooo  oo  oo  oo  ooo  oo 


JOUTrlRASISdi^nWI /lOG 
IF(tPOW.LE.M)  GOTO  •<00 

C - KEY  CHftNGF,  COPprCT  OEJECTED  COL  AND  CHECK  ESSENTIL  PACKET 

jnUT=KF.Y«;(IROW-M)  /lO'i 
N3VPKT  =  M00(  KEY';(T»»nW-H)  ,  100) 

‘ TP(MPVPKT,GT. 0) Gnin  01 

C - CHANGE  KFY  FPOM  jniJT  TO  JPOS  IN  NON-ESEENTTAL  ^KT 

KEY-Sd'^nw-N)  =  i':r*jons 
CALL  SET  <EV(JPnS) 

CALL. SET  KEV(-JOUT) 

C - SET  PAPAMS  FOP  KEY  STEo 

E'>ST  =  THETA 

C - SUooPESS  PPICING  NFXT  TIME 

NPEJ=1 
GOTO  30 

- ESSENTIAL  PACKET,  CHANGE  JOUT  FROM  KEY  TO  BASIC  IN  NEWROW 

fll  CALL  KEY  CH( JOUT,NEWPOW,B) 

IRON  =  NEWROW 

- NORMAL  PIVOT  OPEPATTON 

800  CALL  oiVOTdROWjB,  ALPHA  ) 

- UPDATE  KEY  BASTS  COUNTS  FOR  JPOS  AND  JOUT 

JOOSPK=NPKT( JPOS) 

IF(JPOSPK.EQ.O)  GOTO  82 
KEYS(JPOSPK) =  KEYS(JPOSPK)+i 
82  JOUTPK=NPKT( JOUT) 

TF( JOUT.GT.NT)  GOTO  •»4 
IFIJOUTPK.EO. 0)  GOTO  84 
KEYS{JOUTPK)=  KFYS(JOUTPK) -1 
84  CONTINUE 

- CHECK  JPOS  COMING  OFF  A  ROUNO  (THETA. LE.T  ) 

F»SI=THETA 

IF(ATRNn(JPOS) )  FPSI=BNOJfTHETA 

- CHECK  JOUT,  MARK  NEW  ANO  UNMARK  OLD  BASIC  COLS 

JOUT  =  IPASIS(  IPOW  )/100 

TRASIS(TPOW)  =  1CC*JPOS+MOO(IBASTS(IPOW) ,100) 

CALL  SETRN8(  JOOS) 

CALL  SET6NR(-JOUT) 

- TTYDE=2  IMPLIES  JOUT  OFF  ROUND,  -3  TMPLIES  JOUT  TO  ROUND 

TF(TTYPF.EQ.3)  CALL  SETBNO(JOUT) 

- release  rejected  vectors  after  a  pivot 

IFfNREJ+NDEG.EO.O)  GOTO  90 

NREJ=NOEG=0 

OO  85  I=l,JNCOPF 


- STEP  BETA  ANO  CONOTTION  COMPLETE  PROBLEM  (CUB  ROWS  ARE  LAST) 

85  JAPEJ(I)=0 
90  OO  100  1=1,  MOL 

OETAd)  =RETA  (I) -THETA*ALPHA(I) 

100  CONTINUE 

TFdTYPE.NE.l)  PETAdPOW)*  EPST 
DO  110  1=1, M 

IF(TTO(I),EO.T)  goto  110 
IF(RETAd)  .GF.O  .:)  GOTO  110 


20021510 
20C2152C 
20021530 
200215A0 
2002155G 
20021560 
20021570 
20C215P0 
20021590 
2C0216C0 
20021610 
2C02162C 
20021630 
20C21640 
20021650 
20021660 
20021670 
2002168C 
20C21690 
20021700 
20221710 
20021720 
20C21730 
20021740 
20C21750 
20C2176G 
2002177C 
20021780 
20021790 
20C218C0 
20021810 
20021820 
20021830 
20021840 
20021850 
20021860 
20021870 
20021880 
20C21890 
20021900 
20321910 
20C21920 
20021930 
20C21940 
2JC219F0 
2CC2196Q 
20021970 
20021990 
2QQ22flC J 
20022010 
20021980 
20022020 
20022030 
20022040 
20022050 
20022060 
20022C70 
20022C80 


D-73 
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BETA(I)=0.0 

110  CONTINUE  .  _  .  .  _ _ 

DO  123  1=1, L 

IF{BETA(I+M) .GE.0,0)  GOTO  120 
BETftCI+M)=0.0 
120  CONTINUE 

CALL  STATUStAOHENO  OF  PRIMAL 

GOTO  1  . .  . . 

♦*»»*ENO  OF  BASIC  PRIMAL  CYCLE******* 

- OPTIMUM  PHASEl  termination 

1000  CONTINUE 
CALL  OPTl 

IPHASE  =  2  . . . . .  . 

3ETA(M>=0,0 
GOTO  3000 

- OPTIMUM  PHASE2  TERMINATION 

2000  CONTINUE 
CALL  OOT2 
C 

RETURN 

END 


20022090 

_ -2ILD2,2imL 

20022110 

_ _ 2mZ2120 

20022130 

. . .  2iJ  022140 

)  20022150 

_ 2I1JI2Z16.0L 

20022170 

. . -  .20  022180 

20022190 

. . . . . . .  20022200. 

20022210 

_ _ _ 211022220. 

20022230 

.  ....  . .  -  20  022240 

20022250 

. . 20022260 

20022270 

_ _ _ ^ _ 20 02228 Q 

20022200 

. . . -  . 20022.300. 

20022310 


r 


c— — 


c 

c 

c 


5 


c - 


6 


C 


C 


998 


14 


15 

C - 

16 


20 
C  — 


25 

26 


SUnPnUTINF  OOM  (THETa,I9nw,JCnL, ITYPEtP) 

-r,!JP  APPIl.  2':/71 

-FIMDS  STEP  TO  BOIIMD  8N0  BOUNP  FNCOUNTEpFO 
POMHON  /!/  M,L»>'®L,MP,NT,ICn9T»IP,TPHASE»JPHS,IPI 

r.oHMHN  /cr)PE/  jfi»Fj(ioi),jA(i)i)  ,j«K(iui),ftJ(ieoc) 

COHMOM  /BASIS/  TP ASTS (10 1 ) , KEYS ( 1 01) 

COMMOM  /NAMES/  NAHr(lCO) 

COMMON  /A/  AlOHA(lCl)  /B/  RETAdUl)  /C/  OAMMA(lOl)  /O/  OELTA(lCl) 
COMMnN  /TOLS/  r)JTnL,7ERn,PIVTOL,CTOL,PFPTOL,OE9TOL 
LOGICAL  RASTC*ATPMO 
PEAL  0(1) 

1TP(J)=MOO(IPASIS(J)  ,100) 

NOKT(J) =M0D(NAMf (j) ,i00000)/10 
ATBNn(T)=HOr)(NAMr(T)  ,10)  .EQ.7 

-TRANSFORM  SELECTFP  COLUMN 
JOOS=  JA(JCOL) 

-LOAD  COLUMN  TO  OFLTA  (MAYBF  NULL  PACKET) 

JOPG=  M»JCOL-M 
DO  5  T=1,M 

DELTA(T)=  AJ(JOPG+I) 

-NULL  ELEMENTS  IN  LOWER  ALPHA  FOP  PACKET  OQWS 
DO  6  1=1, L 

ALPHA(T+M)  =0. 

-PACKET  ROW  HAS  A  UNITY 
jo^Tr  NPKT (JPOS) 

IF  (JPKT.EQ.O)  goto  16 

ALPHA(JPKT+M) =1. 

-FIND  KEY  AND  KOPG 
KOP.G=KEYENO(  JOKT) 

IF(KOPr,.NE.0)  GOTO  14 

CALL  EPPPP(4CHPnW — KEY  NOT  IN  COC’E  ) 

WPITEIG.qqS)  J»KT,JCOL,JPOS 

format (1H+ ,4UX,*PArKFT*I5*  P0SITI0N*I5»  C0LUMN*I5) 

CALL  ESCAPE(B) 

IROW=0 

PETUPN 

CONTINUE 

korg=m*korg-m 

DO  15  1=1, M 

nFLTA(I)=OELTA(T) -AJ(KOPG+I) 

■-TRANSFORM  REDUCED  COLUMN  IN  LOWER  ALPHA 
IOPG=l 
DO  2C  T  =  1,M 

ALPHA(I)  =  nOT(  H,  o(IOR6),  DELTA) 

I0RG  =  I0PG4-M 

—SUM  PACKET  BASIC  ENTOIES  TO  ALPHA  ELEMENTS 
IF(L.EO.C)  GOTO  26 
DO  25  1=1, M 
IB  =  I8ASIS(T)/inr 
IF(TB.GT.NT)  GOTO  ?5 
K=  NPKT(  IB  ) 

IFCK.FO.C)  GOTO  25 

K=K+M 

ALPHA(K)=AL®HA(K) -alpha (I) 

CONTINUE 

conttnijf 


20t22323 
2CC22370 
20022340 
20022350 
20322360 
20022370 
20022380 
20022350 
20222400 
20022410 
2GG22420 
20022430 
20322440 
2CC22450 
20022460 
20022470 
20022480 
20022490 
20C225C0 
20022510 
20C22520 
20022530 
2CC22540 
20022550 
20022560 
2GC2257G 
20022580 
20022590 
2CC226C0 
20022610 
2CC22620 
20 022630 
2C02264Q 
2DC2265D 
20022660 
20&22670 
20022680 
2C:2?69C 
2C0227C0 
20022710 
20022720 
20C2273C 
20022740 
20022750 
20022760 
2002277C 
20C2278C 
20022790 
2CC22BC0 
2DC22810 
20022820 
20022830 
20022840 
20022853 
20022860 
20022870 
20022880 
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THETa=l.E35 
IROM  =  0 
ITYPE=  1 

TF(  ATBND(JPOS)  )  GOTO  100 


-X(JPnS)  ZERO,  OJ  NEGATIVE  —INCREASE  X(JPOS) 
00  50  1=1, MPL 

IFd.LE.H  .AND.  ITP(I).EQ.3)  GOTO  50 
IF  (  ALPHA! I) .LT, -ZERO)  GOTO  30 

IF  (  ALPHA(I).GT.  ZERO)  GOTO  10 

GOTO  50 

•POSITIVE  PIVOT  .  ,  : 

STEP  =  BETA  (I) /ALPHA  (1)  . . 

IF(  STEP  .GE.  THETA  )  GOTO  5C 

THETA  =  STEP 
TROW  =  I 
ITYPE  s  2 
GOTO  50 

-NEGATIVE  PIVOT - (  BOUND! JOUT)  .GE.BETAli I)  )' 

JOUT  =  IBASIS (T)/1D0 
1F!I.GT.M)  JOUT=KEYS!T-H)/100 

STEP  =  !  BETA!I)  -  B0UND!JOUT)  )  /  AL^HA!!) 

IF!  STEP  .GE.  THFTA  )  GOTO  50 

THETA  =  STER 
IRON  =  I 
ITYPE  =  3 

CONTINUE 
GOTO  200 


: - X!JPOS)  AT  BOUND.  DJ  PQS ..—DECREASE  /(J** 

100  DO  150  1=1, HPL 

XF!I.LE.M  .AND.  TTP!T).EQ.3)  GOTO  150 
IF!  ALPHA !I).LT.  -  ZERO  )  GOTO  130 

IF!  ALPHA!I).GT.  ZERO  )  GOTO  110 

GOTO  150 

-POSITIVE  PIVOT - !  BOUND !JOUTl  .GE.  BETA! 

JOUT  =  IBASIS!I)/ib0 
IF!T,GT.H)  JOUT=KEYS!I-M) /lOO 
STEP=  !  BETA !I)-flOUND! JOUT)  ) / ! -AL^HA !I) ) 
IF!  STEP.  GE  .  THETA  )  GOTO  150 
THETA  =  STEP 
IRON  =  I 

ITYPE  =  3  . . 

GOTO  150 
-NEGATIVE  PIVOT 
STEP=  8ETA!I)/!  -ALPHA!I)  ) 

IF!  STEP  .GE.  THFTA)  GOTO  150 

THETA=  STE» 

IRON  =  I 
ITYPE=  2 
CONTINUE 
THETA=  -THETA 

-OIVOTS  ON  2,3,  2  DRIVES  JOUT  TO  ZERO  ,  3 

RETURN  . . 

END 


DJ  PQS..— DECREASE..  X(J»OSJ. 


GOTO  150 
GOTO  130 
GOTO  110 


RETAIX).  1 . . 


MOVES  JOUT  TO  BOUND 


20022890 

20022910 
20  022920 
20022930 
. ... ..  20122.9.90. 

20022950 

_ 21L022aM. 

20022970 

. 20022980 

20022990 

_ 2012.300.0 

23023010 
.  __20.Q23121L 
20021030 
_-E0023091 
20023050 

. .  211230.60 

20023070 
.._2!J  021011 
20023090 

. . 20023100 

20023110 

_ 20  023120 

20023130 

_ 21122191 

20023150 

_ 20023160 

20023170 
21 023180 
20023190 

_ 20123201 

20023210 
.  21023220. 

20023230 
20123290 
20023250 

_ 2112a2M. 

20023270 

. . 20023280 

20023290 
...  20123301 
20023310 

_ 21023.321. 

20023330 
.  .20123390 
20023350 
_..  EO  023360 
20023370 

_ 21021110 

20023390 
-.-...20023.911 
20023910 
..  .20023920 
20023930 

_ 111219.91. 

20023950 
. 20021961 


SUi^POUTIME  SET'^NOfT) 

COMMON  /I/  M,L,Hoi  ,Mr,NT,ICnST,in»TOHASE,J^HS,T*»T 
COMMON  /NAMES/  NAME(IOO) 

K  =  ^ 

100  CONTINUE 

IF(I)  1,2,3 
1  J=-T 

TF(J.L,F,MT)  NflMECJ)  =  l  C*  (NAME  ( J)  / 10)  H 
RETURN 

TF(T.LE.NT)  NAME(T)=10*(NAHE(T)/10)+K 
RETUPN 
C 

ENTPY  SFT9N9 
K=2 

GOTO  100 
C 

FNTOY  SETNNN 

coin  100 

C 

CNTPY  srtkfy 
K=4 

GOTO  100 
ENO 


20C23A7G 

20023AP0 

20C234O0 

2Ct2.3GC0 

2CC23510 

20023520 

2CC2353C 

20C23540 

20023550 

2CJ23560 

2CC2357C 

200235P0 

2CC2359C 

20023600 

20023610 

20023620 

20023630 

20023640 

2002365C 

20023660 

20G23670 

20023660 

20C23690 

20C237C0 
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SUBROUTINE  SETUP 

C - GU8  VERSION  APRTL/7i  - - - - -  “ 

INTEGER  PKTjPKTl 
COMMON  /INPUT/INPUT,TNPUTM,INPUTN 

COMMON  /LIMS/  haxtry,ntry,jncore,ncrmax,nscan 

COMMON  /I/  M,L,MPL,MC,NT,ICOST,TC,IPHASE,JpHS,IPI 


-IfllSlZlIL 


20023720 
20023730 
20023740 
-20X1237.50 
20023760 


C  — 
C— 
C— 

C— 

C  — 


cSn  /J$H?YPriJSiTPaoirjSAJ?s/ 

COMMON  /BASIS/  IBASIS  (iJl?, KEYS  (ill)  20023780 

COMMON  /CORE/  J ABFJ ( 101 ) , J A ( 101 ) , JAK( 1 01 ) , A J (1 0 00) 

. 

COMMON  /BOUNDS/  BOUNOSdOO)  ,TRDS  (ICO)  ,  N8DS  l''»NOJS 
COMMON  /  CV2  /  TdCO, 10), 80(100)  ,BLOC1C),UBS(10).CO(10)  ' 

COMMON  /CV3/  MRBCAV,NB8CAV,NCHGS  1U»»CO(10) 

TAKES  input  A  M^RIX  IN  COLUMNS  OFF  INPUT  FILE  BY  COLUMNS 


20021790 
200238CC 
-  2D.023B10 
20023820 
— 20J123JJ1Q. 

20023840 
-20023850 
20023860 
20-023870 
20023880 


CALL  MESSG (40HSETUP  20023900 

ACTUAL  PROBLEM  SI7ES  -  _1  .  -...28023910 

20023920 


C 

C 

C — 


5 

C - 


10 


M=  TNPUTM4-1 
-TRY  TO  START  IN  PRASE  2 
IPHASE=2 

IC=ICOST  ~  -  -  . . . . . — 

-TOLERANCES 

DJTOL=l.E-8 

ZERO=l.E-12 

PIVTOL=l.E-5 

CT0L=1.F-4 

PERTnL  =  l.E-5  . .  .  '  - - - - - 

DERTnL=l.E-8 

NSCAN=NTRY=MAXTRY=NOJS=TTRN=JNCOPE=C 

’lNVF=Ior^'’^^^^^  iteration  OF  NEXT  INVERT  TTNTNV 

ITNINV=0 


-FIRST  M  COLUMNS  GIVE  ROW  LOGICALS  AND  TYRES 
00  5  1=1, M 
KEYS(I)=0 
TBASIS(T)=0 

'lROHTP(M)  =  3  POSSIBLE  USE  IN  PHAsi  l 

-SET  UP  LOGICAL  VECTORS  FOR  THE  ROMS 
DO  10  1=1, M 
ALPHA (I)=0.0 
“NOW  COUNT  COLS  WRITTEN 

MT=0  -  -  - .  . . . . 

DO  100  1=1, M 
IO=IROMTP(T) 

IFdO.EQ.O)  GOTO  ?0 
IF(ID.EQ.I)  GOTO  21 
IF(ID,EQ.2)  GOTO  22 

IE(I0.EQ.3)  goto  23 . '  “  -  - 


. —280239.30 

20023940 

- 20.823950 

20023960 

- . 20.023970 

20023980 

-  20  023990 

20024000 
-20a2iL01iL 


IF(ID,EQ.4)  goto  24 


20024020 

-  . 2002.4038 

20024040 

28024058 

20024060 

- 2.0024078 

20024080 

_ 20024090 

20024100 

_ 20024.110 

20024120 

- 28024.1.38 

20024140 

-  20024150 
20024160 

-  20024170 
20024180 

-  . 28224130 

20024200 
.  -  20224210 
20024220 
..  20024230 
20024240 
.28824250 
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20024260 

20024278 


l<i  CftLL  E»POP(40H  SETUP — pOW  TYoE  EPPOP--OUT  OF  RANGE 
CALL  ESCAPE 

c - equality  row-  no  logical  col. 

20  GOTO  luQ 

c - le.  row-  positive  logical+slack 

21  i,LPHACI)=l.e 
K  =  1 

GOTO  50 

0 - GE,  POW-  NEGATIVE  LOGICAL+SL ACK 

22  ALPHA(.I)=-1 
t<  =  l 

GOTO  50 

C - FPFf:  POW-POSTTIVE  LOGICAL-RASIC 

2T  ALPHA(I)=+1. 

IBASTS(I)=NT+1 

K=2 

GOTO  50 

C - GUO  POW-NO  LOGICAL 

24  CONTINUE 

GOTO  ino 

C - place  column  in  ETLE  lAl  AND  IA2 

53  wt=NT4-1 

NAME(NT)=< 

call  OUKNT, alpha, COLNM) 

ALPHA(T)-=0 
IQO  CONTINUE 

G - KFEP  phase  1  COST  POW  7ER0  IN  PHASE  2 

IROWTP(M)=n 

C - NO.  OF  LOGICAL  COLS  MC 

MC=NT 

C 

C - CYCLE  INPUT  FILE  COLUMS 

REWIND  INPUT 
DO  2C0  JNT=1,TNPUTN 
110  IF(JNT.NE.  JRHS)  GOTO  HO 

READ  (INPUT)  (PHS(J)  ,J=:1,INPUTM) 

C - take  RHS  from  bo  and  skip  TAPE  VERSION 

DO  120  J=1,INPUTM 
120  PHS(J)=0O{J) 

PHS(P)=0. 

NT=NT+1 

NAME(NT)=o 

CALL  OUKNT, RHS, COLNM) 

GOTO  200 

C - GET  NEXT  COLUMN  JNT 

130  continue 

REAn(lNPUT) (ALPHA(J) ,J=1,INPUTM) 

C - INSERT  COLUMN  CHANGES  TO  PROBLEM 

TF(JNT.GT.NCHGS)  GOTO  135 

ALPHA(ICOST)  =CO (JNT) 

135  CONTINUE 

C - -CHECK  FOP  COL  PACKET,  GET  pKT  NO.  OR  Q 

PKT  =  C 
pKT1=0 

DO  140  T=1,INPUTM 

TF(  TROWTPd)  .NE.4)  GOTO  140 

PKT1=1+PKT1 

IF(  ALPHA  (I).NF.l.)  GOTO  140 


)  200242P0 

2CC242SC 
20024300 
20024310 
20C2432Q 
20C24330 
20024340 
20C24350 
20D243f'0 
2CC24370 
20024380 
2CD24393 
20024410 
20C2441C 
20024420 
2C02443C 
20024440 
.20024450 
20C244E0 
20024470 
20024480 
20024490 
20024500 
2CD24510 
20024520 
20C24530 
20024540 
20024550 
20024550 
20C24570 
20024580 
20024590 
20024600 
20024610 
20024620 
20024630 
2CG24640 
20024650 
20024660 
2O02467C 
20024680 
20024690 
20024700 
20C2471C 
20024720 
2CC2473G 
2CC247A0 
2C02475Q 
20024760 
20C2477C 
20024780 
20024790 
20024800 
20024810 
20024820 
20024830 
20024340 
20024850 
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PKT  =okT1 


140 
C  — 
145 


150 

151 
155 

C - 


goto  145  -  -  . 

CONTINUE 

--CHECK  FOR  BOUND,  C-ET  BOUND  NO.  OR 
IF(NBOS.EQ.O)  GOTO  151 
DO  150  J=1,N0OS 
IF  (  IBO*;(  J)  .EQ.JNT)  GOTO  155 

CONTINUE 
J  =  0 

CONTINUE 

_ SET  NAME  TO  BOUND+PACKET  ♦  STATE 


0 


AND  MARK  KEY  COLUMN 


Q _ COUNT  COLUMN  AND  WRITE  TO  FILE  LESS  GUR  ELEMENTS 

160  NT=1+NT 

NAME(NT)=K+10*PKT+100000*J 
CALL  OUT(MT,  ALPHA, COLNM) 

c--- _ remove^gub  rows  from  ibasis  and  rhs 


I NON=  0 


L=0 

TKOST=TCnST 
DO  220  1=1, M 

IFdROWTPd)  .E0.4)  GOTO  210 

0 - non-gub  roe 

INON=INON4-l 

I  BASIS  (INON)  =10  0*  IBASIS  (I )  +I.POWTP(I) 
RHS(TNON)=R.HSCI) 

GOTO  220 

0-.— GUB  ROW,  STORE  RHS  IN  AJ 

210  L=L+1 

AJ(L)=RHSd) 

0 - move  down  user  COST  ROW 

IFd.LT.TCOST)  IKOST=IKOST-l 
220  PONTTNUE 

0 _ NOW  REPLACE  RHS  DM  END  OF  RHS 

IF(L.EQ.O)  GOTO  240 
DO  230  1=1 ♦L 
230  RHS(INON+I)=AJd) 

0 _ NOW  DROP  COUNT  OF  GUD  ROWS 

M=M-L 


1COST=IKOST 

_ REDUCED  PROBLEM  NOW  COMPLETE 

240  CONTINUE 
RETURN 
END 


20024660 

2QflZ41HJD- 

20024860 

2Q02469Q 

20024900 

_ 2D  024910 

20024920 

_ ^2^ILD2i*93P 

20024940 

20Q24950 

20024960 

.200.24970 

20024980 

. . 200245.90, 

200250CO 
.  20025010 
20025020 
..  20025030 
20025040 
..„_2  002-52,50 
20025060 
._20025D70 
20G250BO 
_ -20  0250  90 
20025100 

. . _J2  0025110 

20C25120 

_ 20025130 

20025140 

.20025150 

20025160 

_ 2,(102.5170. 

20025180 

20025190 

200252C0 

20025210. 

20025220 

200252311 

20025240 

20025250 

20025260 

20025.270. 

20025280 

_ 2Q02.52M. 

20025300 


SUnPf'UTTME  STftTU^CMOTF) 
niMFNSTOM  NOTECt*) 


?nc?531C 

20C25320 


nOMMOM 

/LTMS/ 

MAXTPV,NTPY, JNCOPE ,NCRNAX,NSnAN 

20C25330 

COMMON 

/T7  M,L 

,HPL,NC,NT,ICnST,IC,TPHASr.,JPHS,T“I 

200293A0 

COMMDN 

/NAMES/ 

NANEdOO) 

20C29350 

COMMON 

/CORE/ 

JAPFJdOl) ,  JAdOl )  ,JAKd31) ,  AJdOCC) 

20C29360 

common 

/A/  ALPHA(lOl)  /B/  RETA(iri)  /C/  CAHMAdOl)  /O/  OFLTA<lCl) 

2GC25370 

COMMON 

/OASIS/ 

IRAST9d01)  .KEYSdCl) 

20025380 

COMMON 

/OJS/  OJdl-t) 

20025393 

COMMON 

/STATF/ 

JPrS,IPOW,  jcol,jout,tti>m,mpej,noif,nd,js 

20P25AC0 

COMMON 

/PAPANS/  TNAX, ITNTNV, TNVF , K1 , K2 , K 3, K4,K5 

20025A1C 

RATA  JMTO/O/ 

20029920 

LOGICAL 

BASIC, 

ATONO 

20025A30 

IF{M00(K3,11)  . 

NF.D  PETUPN 

20025990 

TF(  MODdTPN 

,5r).EO,0)  WPTTE(6,1) 

20C25‘.90 

FOPMftT (IHl 

20025960 

4- 

,10H 

PMASE 

2£  025970 

+ 

,10H 

tier 

20025480 

4* 

,10H 

TPr 

200254QC 

4- 

,19H 

VfL  OBJECTIVE 

2CC295C0 

+ 

,1CH 

NDJS 

20025510 

4- 

,10H 

MARTS 

20025520 

+ 

,15H 

value  oj  in 

2QC25530 

4- 

,1CH 

COL  TN 

2CG29590 

4- 

,10H 

cnoE 

20C2559C 

+ 

,1PH 

OOL  OUT 

20025560 

4- 

,10H 

CODE 

2G029570 

4- 

,10H 

NSCAN  ) 

20025580 

CALL  SECONJDCX) 

IF{X.LT.TMAX.AN0.TTRM.LT.K5)  goto  999 
call  MAonUT(R) 

CALL  EXIT 
999  CONTINUE 

C - COUNT  ACTIVE  ARTIFICIALS  FOR  STATUS  DATA 

NPIF=0 
00  19  1=1, M 

19  IFdOASISd) /lOC.GT.NT)  MOIF  =  l  +  M“IF 
C09T=-RETAdC) 

NCOLSsJNCORF 
TF(MTRY.NE.O)  GOTO  2-:' 

CALL  INROS(JNT) 
ncols=jnt-jnto 

IF(NCOLS.LE.O)  MCnLS=NCOLS+NT 

20  JNTO=JNT 
JNSCAN=iaCOO»Msr(VN+NroLS 
MNTRY=100r*HAXTPy4MTPY 
TF(JCOL.rO.O)  GOTO  i; 

IFdPOW.FQ.O)  GOTO  1C 
NJOUT=NAME(jnUT) 

IF( JOUT.FO.O)  NJOUT=0 

TF{  JOIJT.GT.NT)  NjnUT=10  0Q  JOCO^TPOW 

WRITE (6, 2)  IPHASF,TTPN,MNTRY,COST,NOJS,NPTF,OJ(JCOL) 
♦  ,JR0S,NAMF( JPOF) , JOUT,NJOUT, JNSCAN 
2  F0?MAT(1N  ,SI10,F1R.6,?I10,E15.6,9T1u) 

RETURN 

C - WHEN  NO  COLUMN  WAS  SFLECTEO 


2C02R990 
2G  j296Q  0 
2(3029610 
2CD25620 
2GC25630 
200296A0 
200296':0 
20025660 
2CC2567C 
20025680 
20025690 
20j257C0 
20029710 
20025720 
20025730 
200297L0 
20025750 
20029760 
20029770 
20025780 
20C257Q0 
20025800 
20325810 
2CC25820 
20029830 
20C298A0 
23325090 
20025860 
20025870 
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o  o  o  o 


C - OR  UNOOUMOED  20025880 

10  WRITE  (6,3)  IPHASE,I.TRN,HNTRY,COST.,NDJS,N«lE^MaTE,JNSCAM - ^0J12S&90- 

3  FORHATdH  ,3110  ,E15.6,2T10,15H - ,4A10,I10)  200259C0 

RETURN  . -  - 20025910 

20025920 
..  20025930 

ENTRY  ERPOR  20025940 

WRITE (6, 4)  NOTE  »NOTE,  NOTE  .  _ _ _ 20I12S-950- 

4  FORMATCIH  /(1H+,4A10) )  20025960 

RETURN  . - . 21025970 

20025980 
. 20025990 

ENTRY  MESSG  200260CO 

ENTRY  M9SG  .  .  - - - - 2026011) 

IF(M00(K3,7) .NE.O)  RETURN  20026020 

CALL  SECOND (X)  _  20026030 

WR1TE(6,5)  NOTE,X  '  20026040 

5  FORMAT! (IH  ,4A10,6CX,F10.0 ,♦  SECONDS*  )  20026050 

RETURN  20026060 

end  .  . . . . . ^ _ 20026070 


c- 


30 

40 


45 


50 

60 

8 


73 


tnonro« 

COMMON  /A/  ALOHAdCl)  JrI 

COMmom  /HASIS/  IRA^rS(lOl)  f^A^MA(lOl) 

COMMON  /r/ 

COMMON  /LIMS/  MAXTPV  NToZ  iwrlo^^*^ 

COMMON  /DJS/  OJ(IPC)*  ^ 

COMMON  MAMF(icq) 

IROWTP(I)=moD(IOASIS(I) ,100J 

‘  ^^'’°  ”ER«TI0«  for  fcfefkf 

REr„RR 

rolnnUS’  '=‘'-'-f'-"''“.^"ET.,oNoj,j=os 

J<OL=JCOL 
Jl=MAXfl (JKOL-5,1) 

J?=MIN0 (Jl+9, jNCopE) 

WPITECS,*;)  (JA{F),k-Ii  191 

»^OPMAT(32X,lCrie) 

lOPr,=i 

jend=jncore»m 

00  40  T=l,M 
JORr,=Jl*M-M+l 
DO  30  J=J1,J? 

AJ(JEND+J)  =0OT(M,RrTOPri  »i# 

IF(  An3(AJ(JFND+J)>,LE  ^ppfj  )  AirirMn 

JORG=JORG+M  Lt.ZEPO  )  A J (JFNO* J) =o . 

IOPG=TORgIm^*^*^*^^^*^’  fl)  »CFTA(I)  ,  (AJ{JEND+J)  ,J=J1,J2) 

OQ  45  J=J1,J2 

JAJ=JA{J) 

OFLTA(J)=nAMECJAJ) 

GOTO  fin 

00  50  1=1, L 

coJmSj”  '•^"^'"•»'-»H.aFM,.nETAa.«. 

CONTINUE 

■£;•;;?»■’■• -■K'ii'sss 

TF(M00(K3,17).NE.C)  goto  555 
--gamma  sums  LHS-PH5 

00  90  1=1, MPL 
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/n/  OELTAdOl) 


20026030 
2002fiCPC 
200261C0 
20026110 
20026120 
2CC26130 
2G02614C 
20026150 
2Q026160 
20026170 
20026180 
20C26tP0 
2GC262CC 
20026210 
20026220 
20026230 
20026240 
20026250 
20026260 
20026270 
20026230 
20026290 
20C263C0 
20026310 
20026320 
20C26330 
20026340 
20026350 
20026360 
29026370 
20026380 
20026390 
29026400 
20026410 
20026420 
20026430 
20025440 
2CC2645C- 
20026460 
20026470 
20026430 
20026490 
20026500 
20026510 
20026520 
2CC26530 
20026540 
20026550 
20025560 
20026570 
20026580 
2002659C 
200266CC 
20026610 
20026620 
20026630 
20026640 


oo 


^90  6AMMA(I)=-RHS{T) 

^  LAST-i*^^  KFFPJNG  TO.,  GET  CO.LU^S  .IN  JIRDI;R: 

NVARS=MPL+N9DS 
00  500  NVAR=1,NVAPS 
NEXT=999999999 

C - BASIC  COLUMNS 

00  200  1=1, M 

J=I8ASIS(I)/100 

C - MARK  STRUCTURAL  S 

ITAG=2 

IF(J.LE.NT)  GOTO  150 

C - MARK  ARTIFICIALS 

ITAG=5 

IF{J,LE.NTfl00)  GOTO  150 

c - mark  negative  STRUCTURALS 

ITAG=6 

J=J-(MT+100) 

IF(J.LE.NT)  goto  150 

C - mark  negative  ARTIFICIALS 

ITAG=7 

150  CONTINUE 

IF(J.LT.LAST)  goto  200 

IF(J.GT.NEXT)  goto  200 

NEXT=J 

JTYPE=2 

JTAG=TTAG 

X=BETA(I) 

I8AS=I 

200  CONTINUE 

C - BOUNOEO  COLUMNS 

IF(NRDS.EQ,0)  GOTO  :^n0 
NEXTJ=MIN0 (MT,NEXT) 

00  250  J=LAST,NEXTj 

TF(MOO(NANE(J) ,10) .EQ.3)  GOTO  290 
250  CONTINUE 
GOTO  300 
290  NEXT=J 
JTYPE=3 
X=BOUNO(J) 

C - KEY  COLUMNS 

300  CONTINUE 

IFCL.EQ.O)  goto  360 

OO  350  1=1, L 

J=KEYSfI)/100 

IFfJ.LT. LAST)  GOTO  350 

IF(J.GT.NEXT)  GOTO  350 

NEXT=J 

JTYPE=4 

X=9ETA(M+I) 

350  CONTINUE 
360  CONTINUE 


“GET  NEXT  COLUMN  TO  CORE  IF  REAL 
TF(NEXT.EQ.999999R99)  GOTO  510 
IFfNEXT.GT.NT)  GOTO  400 
CALL  INfNEXT , AJ (JFNO+1) , JNCOPE+1) 
•AOO  GU8  elements 


(JTAG=?  OR  6) 
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20026650 

- 2011256610. 

20026670 

20026680 

20026690 

-  - -  20.02570.0 

20026710 

- 2011257.20 

20026730 

.  20026740 

20026750 

- -  20026760 

20026770 

- - -  20.026X8.0 

20026790 

. . .  20  0268D0 

20026810 

-  20026820 

20026830 

- -  .20.02  6  8.40 

20026850 

- .  20026860 

20026870 

- . - . 20  026880 

20026890 

- 20026200 

20026910 

. .  20026920 

20026930 

-  200269.40 

20026950 

- - 25026.960. 

20026970 

-  .  20026980 

20026990 

- - .20027.000 

20027010 

- ZDAZmZJL 

20027030 

. . .20027040 

20027050 

- .  20027060 

20027070 

- 211027118.0.. 

20027090 
_  20027100 
20027110 

.  20027120 

20027130 

- - 2002X14.0 

20027150 

-  20027160 

20027170 

. 20027180 

20027190 

- .20  0272130 

20027210 
-  20027220 


o  o 


MPl=M+l 

IF(L.EQ.O)  GOTO  3fl‘5 
no  ?«0  I=M01,MPL 
3»C  AJ(JFNO+T) =0. 

TGUB=Hnn{NaMF (MFXT) ,ionooo)/ic 

IF(IGUB.NE.O)  ft  J{vJFNn+H  +  TGUB)  =1 . 

385  IF(JTYPF.'JE.2)  GOTO  ft50 
IF(JTftG,NE.5)  GOTO  450 
C— — -NFOftTIVE  STPUCTUPfiLG 
on  393.  1=1, mpl 
390  AJ(  JENO  +  T)  =-flJ(  JFK'O+T) 

AJ(JENn<-M)  =1. 

GOTO  450 

0 - A9TIFTCIAL  VFCTOP  (JTAG=5  OP  7) 

400  DO  410  1=1, HPL 
41G  AJ(JFMO+T) =0. 

AJ(JFND*TBAS) =1 . 

AJ(JFNO+M) =1. 

IF(JTftG.EQ.7)  AJ{JFN0+I8ftS)=-l. 

0 

C - SUM  y*aj  TO  GftMMA—  THE  EPROP 

453  no  460  1=1, MPL 

460  GAMHft  (DsGftMMAC  I)  +y*  AJ(  JENO+T) 

500  LftST=NEXT4-l 

501  FORMAT (4T4,E12»  4, lOFl 0.4/ (28X,10  FIO .4) ) 
510  CONTINUE 


- CHEOK  FPPOR  AGAINST  TOLERANCE 

ORMLFR=0. 

K  =  0 

DO  550  1=1, MPL 
ABSGAM=A9S(GAMMA(T) ) 
IF(anSGAM.LE.RERTOL)  GOTO  550 


K=K  +  1 

OELTA(K)=I 
GftMMfl {K)=GftMMA( I) 

IF(ft9SGAM,LE.PRMLFR)  GOTO  550 
PRMLER=ABSGftM 

550  CONTINUE 

IF(POMLER.LE, PERIOD  HRITE(6,552J 
IP(PPMLER.LF, PERIOD  GOTO  555 

WRTTE{6,551)  RRMLERj^ERTOL » (DEL  I  A  Cl) »G ftMMA ( I) ,1=1, K) 

TF{MnO(K3,19) .NE.r )  GOTO  555 

ITNIMV=IT?N 

551  FOPMATC*0PRIMflL  ERRORS  EXCEED  TOLERANCE-  —  */ 

♦  ♦  FRROP--*E12 . 4*  TOLERANCE— *F12.  4/ (4  ( 110  ,E20 . 8) ) ) 

552  FORMAT (*  ERRORS  WITHIN  TOLERANCE*) 

555  WRITE(6,7)  ^ 

7  FORMftTClH  ,4CH - - - -  ’ 

RETURN 

END 


20327230 

20027240 

20027250 

20027260 

20027270 

20027280 

20C27290 

20027300 

20G27310 

20027320 

20C27330 

20027340 

20G27350 

20027360 

20027370 

20027380 

20027393 

200274C0 

20027410 

20027420 

20027430 

20027443 

20027450 

20027460 

20G27470 

20C274B0 

20027490 

2CC275G0 

20C27510 

20027520 

20027530 

20027540 

20027550 

20027560 

20C27570 

20027580 

20027590 

20027600 

20027610 

20027620 

20027630 

20327640 

20027650 

20027660 

20027670 

29C27680 

20027690 

20027700 

20027710 

20327720 

20027730 


PROr.RAM  REPGEN  (INPUT, OUTPUT, TAPEJl,TA.PE5=LNPUT,.  - _ _ 

1  TftPE6=0UTPUT,TAPE9=TAPEA) 

COMMON  /VECSTG/  VNAME(10),C,LENP,VLIFE(i:),INH(lC, 16), 

»  VCOST(10,5) ,NAMEN(10) ,COSTS{30,3) 

COMMON  /BASICS/  CHAP ( 5000 , 4) ,CODE (20) , PEP{ 10) , IYR( 10) ,LYR (10 ) 
COMMON  /OUTS/  0 ANHM ( 20) ,S ALE ( 2C ) ,SA VE ( 20 ) , EXIST ( 10 , 20) , 

*  OURCH(10,20)  ,STOP(10,20)  ,SALV(10,2Q)  ,PRQC(20)  ,PR.0Tt2Q) _ 

COMMON  /PARAMS/  PDTOT ,TNyR, LAST, NV,NP, TOT, TTTLE(4) , COST 

OATA  CODE  /  2H01,2HP2,2H03,2H04,?HC5,2H06,2H07,2H08,2H0B,2H10, 

*  2H11,2H12,2H13,2H14,?H15,2H16,2H17,2H18,2H19,2H20/ 
CALL  SETUP 

50  REAOCq, 100) (TITLE(T) ,1=1,4) 

100  FOPMAT(4AIO)  . .  ..  _ 

IF(EOF, 9)7777, 200 
200  POTOT=0.0 

DO  300  1=1,20 

SALE(I)=0.D 

SAVE(I)=0.0 

PROC(I)=PROT(I)  -  „  ,  .  . .  . 

OANDM(I)=0,0 
DO  250  N=l,10 
PURCH(N,T)=0.0 
EXIST(N,1)=0.0 
STOP(N,I)=0.0 

SALV(N,I)  =  0,0  .  ...  : _  ..  ...  _ 

250  CONTINUE 

300  CONTINUE  . 

GALL  INSOLN 
CALL  CINFO 
CALL  PINFO 


—lofiaaoio. 

30000020 

30000030 

300C0040 

30000050 

30000060 

„..3Q00Jlfl.70- 

30000080 

30000090 

30000100 

30000110 

30000120 

...300.00130 

30000140 

30000150 

30000160 

30000170 

30000180 

...iooaaiBo. 

30CG02CO 
.  30000210 
30000220 

-  -30000230 

30000240 

—  30000250 
30000260 
30030270 
30000280 

. 30000290 

30000300 


GO  TO  50 


_ 30000310. 


7777  STOP 


30000320 


END 


.  .  30000330 


SUBROUTINE  OINFO 

rONMON  /WECSTG/  VW-MEdO)  ♦n,LEMP,VLTFE{lC>  ,TNH(1C,16), 

♦  VCnST(10,5)  ,NAMEN(10)  ,r:OST'‘(T0.3) 

COMHom  /RASirs/  OMAR (5000,4) ,CnnE(E j) ,PER(10) ,TyP(10) ,LYR(1J) 
COMMON  /nUTS/  OANDM(?0),SALE{20) ,SAVE(2C),EXIST(lfl,2C) , 

*  PUPCH (10,20) , STPP( 10,20 ) ,SALV (10,20) ,ppOC(20) , PR 01(20) 
COMMON  /DARAMS/  PpTOT , INYR ,L AST , NV, NP , TO T, TITLE (4) , COST 
OATA  ONE,TOTAL,pFPIOD  /  2H01,6HTOTAL  ,6HOERT00  / 

WRTTF(6,100) (TITLF(I) ,1=1,4) 

SUMT=0.0 
TDPOC=0,G 
TCnST=0,0 
no  5G0  1=1,20 

500  TCnST=TCnSTtnANOM(I)+SAVE(I) -SALE (I) 

TCOSTsCnST-TCnST-POTOT 
DO  600  1=1, NP 
600  TPROC=TPROC+PROC(T) 

TPROC=TPROC/TCOST 
on  ICOO  1=1, NO 
TF(PFR(T).E0. ONE)  N=I 
1000  COMTTNUF 

00  2000  T=N,NP 
K1=TYR(I)-TNYR+1 
K?=LYR{I)-INYP+l 
DO  1500  '<=K1,K2 


30C00340 

30C0035C 

3Ca0036C 

30000370 

30C003fiC 

30C003O0 

30000400 

3C00041C 

3GCC342G 

30COC430 

30000440 

3CGC045G 

30CC046D 

30000470 

30.000480 

30000490 

3C0CC5LC 

30000510 

30000520 

30U00530 

30000540 

30CG0550 

30000560 

3000)570 

30000580 


IFIK.EO.Kl)  GO  TO  15C0 
nANDM(Kl)=OANnM (Kl)+nANOM(K) 

SALE (Kl)=S ALE (K1)+SALE(K) 

1503  CONTINUE 
J=I-N+1 

PRnC(I)=PR,nC(I) /TPROC 
OANnH(Kl)=OANOM(Kn +SAVE(I) 

SUM=OROC(I)+OANOM(K1)-SALE(K1) 

WRITE (6, 20  0)  PERIOD, CODE ( J) ,PROC  (I) ,OANDM( <1) , SALE (Kl) , SUM 

IF  (J.EQ.l)  GO  TO  2000 

OANDM(l)=nANDM(l)+nANOM(Kl) 

SALF(l) =SALE(1) ♦SALE(Kl) 

PROC(N)=PROC(N) ♦PPnC(T) 

2000  SUMTrSUMT+SUM 

I=LYP(NP)-INYR<-2 

WRITE (6,300)  total, ROTOT,PROC(N) ,OANOM (1) , SALE (1) , SUMT 
WRITE(6,400>  SALECI) 

100  F0PMAT(lHl,15Y,4Aie  /  lH-,»CnST  INFORMATION*  / 
•1H-,12X,5(1M»,12X)  /  13X,1H*,*  R  AND  D  *,  IH*, 

♦*  PROCUREMENT*, IH*,*  OPERATING  *,1H*,*  SALVAGE  *,1H*, 
**  TOTAL  *  /  IH  ,77(1H*)  /  13X,5(1H»,12X) ) 


3CC005P0 

30000600 

30G00610 

30000620 

30000630 

3000064Q 

30000650 

30000660 

30000670 

3Q0006R0 

3000069C 

30CC07C0 

30000710 

30000720 

3CCC0730 

30000740 

30CC0750 

30000760 

30000770 

30000780 

30000790 


200  FDRMATdH  ,  A6 ,2X,  A2,  2X,  IH*  ,12X,  4  (IH*,  1 X,  F9 . 3,2X)  /  13X,5{1H*,12X) )  30000800 
300  F0RMAT(13X,5(1H*,12X)  /  IH  , A6, 6X,5 ( IH* , IX ,F9. 3,2X )  /  IH  ,77 (IH*) ) 30 GOOfilO 


403  FORMATdH-  /  1H-,  *TRUNCATIDN  VALUE  FOR  RESOURCES  =  *,F9.3)  30000820 


RETUPN 


30000830 


END 


30000840 


7777 


101 


SURonUTTNE  INSOLN 

. - 

UPCH  (10  f  2  0  )  »  STOP  ( 1  Ot  ?0 )  f  S  AL  V  (  10 1 20 )  yPPOC  ( ?0 )  PPOTCPm 

TOT=NP  +  l, 

/.aLAM2/2H  / 

REAOCgaaOJIMDjVAL 
IF(TMO.GE.O)  go  to  101 
COST=VAL 

GO  TO  700  ■  . . 

IF(INO.EQ.O)  GO  TO  7777 
IF(CHAR (INO» 1 ) . EO.X)  GO  TO  500 
IF(nHAPf(IMO,l)  .EQ.W)  GO  TO  400 
IF(CHAR(INO,  1) .EQ.S)  GO  TO  300 
IF (CHAR (IND, 3 ) . NE. BLAN2)  GO  TO  7777 


200 

210 


FOR  INVESTMENT  CONSTRAINTS 


GO  TO  210 


INTERPRET  PNN  VARIABLES 
DO  200  1=1,20 

IF  (PER(T)  ,EQ,CHAP{TND,2)  ) 

CONTINUE 
GO  TO  1000 
PROC{I)=PROC<I) -VAL 
PROC(T+1)=PROC( I+1)+VAL 

GO  TO  7777 

INTERPRET  IN4ERTTE0  FLEET  AND 
4QC  DO  405  J=l,20 

IF(CODE(J)  .E0,CHAP(IN0,2) ) 

CONTINUE 
GO  TO  1000 
DO  420  1=1,10 

IF(PER(I).EQ.CHAP(TND,3))  go  to  430 
CONTINUE 
GO  TO  1000 
ISTApT=IYR(I) 

IF(CHAR(IND,1) (EQtX)  PURCH ( J, I) = VAL 
00  450  1=1,10 

IF(pFR(I),EQ.CHAR(TND,4) )  GO  TO  460 
CONTINUE 
GO  TO  1000 
lENOsLYRd) 

CALL  VALUES(J,ISTART, TEND, VAL) 

GO  TO  7777 

INTERPRET  MOTHBALL  VARIABLES 
300  no  350  1=1,20 

IF(COOE(I) .EQ.CHAP(TNO,2) )  GO  TO  36C 
CONTINUE  ■ 

GO  TO  1000  . .  ■ 

DO  370  J=l,10 

IF(PER(J).EQ.CHAP(INn,3))  GO  TO  380 

continue 

GO  TO  1000 
STOR(I,J)=VAL 
LENP=LYR(J)-IYR{J)+1 
CALL  MOTH(I) 

D-88 


405 

410 

420 

430 


450 

460 


PURCHASE  FLEET  VARIABLES 
GO  TO  410 


350 

360 

370 


380 


- 30C(U185(L 

30000860 
...  30000870 

30000880 
30000890 
30000900 

- -30  000310 

30000920 

30000930 

30000940 

30000950 

30000960 

- 30000970 

30000980 
30000990 
30001000 
30G01010 
30001020 
...  — 300010  30 
30001040 
30001050 
30001060 
.  30001070 
30001080 

. 300.01090. 

300011C0 
30001110 
30CC1120 
■  30001130 
30001140 

- 3i3(L0115a. 

30001160 
--  30001170 
30C01180 
30001190 
30001200 

- 30001210 

30001220 

30001230. 

30001240 

30001250 

30001260 

. .  30001270 

30001280 

30001290 

300013GG 

- . 30001310 

30001320 
— 30  001330.. 

30001340 
.  ._3L0O013S0. 
30001360 
-30001370 
30001380 
—  3JUD  013911 
30001400 
-30001410. 


SftVFCJI =SftVE ( J) +C*V»L 
GO  TO  7777 

C  IMTEPPPPT  MftSTFR  VAOTflRLFS 

5Ja  IF(CHAP(IMD,3) .NF.RLAN?>  GO  TO  k'd 
DO  SRO  1=1, ?C 

'TF(OnnF(T»  .FO.nHaP{IMO,2M  GO  TO  560 
OGO  COMTIMUF 
GO  TO  ICJO 

56ii  PUPCH{I,TOT)  =VAL 
IF(VAL.GT.C.C) 

*pnTnT=poTOT+vrosT  (T,'») 

GO  TO  7777 
C  ERROR  MESSAGE 

1000  WRTTr(6,600)  (CHAP(TMO,I) ,1=1,4) 

STOP 

730  RETURN 

130  F09MAT(I4,4X,F12.4) 

600  F0PMAT(1H-,»ERP0P  TN  INTERPRETATTON  of  *,A1,3A2) 
END 


3CCC1420 

300014TO 

30001440 

33001450 

30001460 

30001470 

30001400 

30001490 

30001500 

30001510 

30001523 

30001530 

30001540 

30001550 

30C01563 

30001570 

300015R0 

30001590 

335C1630 


SUBROUTINE  PINFO  ....  _  _ _ 

COMMON  /VECSTG/  VNAME(io) ,C,LENP,VLiFE ClC) ,iNH(lC,16), 

*  VCnST(10»5)  ,NAMFN(10)  ,COST5;(30,3) 

COMMON  /BASICB/  CHAR ( 5000 ,4) tCOOE (2o) , PE9( 10 ) , ITR ( 10 ) ,L TR (10 ) 
COMMON  /OUTS/  0 AMP” ( 20) ,S ALE (20 ) ,SAVE ( 2C ) t EXIST (1 0 1 20) ,  . . 

*  PUPCH(10,2  0) ,STnP(lC,20) fSALV(10,20)  ,POOC(20) ,PROT(20) 

COMMON  /PARAMS/  ROTOT ,INYR, LAST , NV, NP, TOT, TITLE (4) , COST.  . . 

INTEGER  TOT 

.DATA  TOTAL, PERIOD, BLANK  /  6HT0TAL  ,6HPERI00,2H  / 
WRITE(6,1000)  (TITl.E(I),I=l,4) 

M  =  1 

5  GO  TO  (10,20,3n,40,50,60,70,«0,9:),NV 
10  WRITE(6, 1010)  (VNAMEd), 1=1, NV) 

GO  TO  ion 

20  WRITE(6, 1020)  (VNAMEd), 1  =  1, NV) 

GO  TO  100 

30  WRITE(6, 1030)  (VNAMEd), 1=1, NV) 

GO  TO  100 

40  WRTTE(6, 1040)  (VNAMEd), 1=1, NV)  . . 

GO  TO  100 

50  WRITE(6, 1050)  (VNAMEd), 1  =  1, NV)  . 

GO  TO  100 

60  WRITE(6, 1060) (VNAMF(I) ,1=1, NV) 

GO  TO  100 

70  WRITE(6,1070)  (VNAME(T),T=1,NV).  . . .  •.  _ _ _ _ _ 

GO  TO  100 

80  WRITE(6,10fl0) (VNAME( T) , I=1,NV) 

GO  TO  100 

90  WRTTE(6, 1090)  (VNAMEd), 1=1, NV) 

1000  F0RHAT(1H1,15X,4A1()  /  IH- , ♦PURCHASED  RESOURCES*) 

1010  FORMAT(lH-,12X,  1H*,12X  /13X,  1H*,2X,A3,2X  /IH  ,25T1H*)./ . _ 

*  13X,  1H*,12X) 

1020  ,F0PMAT(1H-,12X,2(1H*,12X)  /13X , 2 (IH*, 2X, A8 ,2X ) /IH  ,38(1H*)/ 

*  13X,2(1H*,12X)  ) 

1030  F0RMAT(1H-,12X,3(1H*,12X)  /13X, 3 (IH*, 2 X, A8 , 2X) /14  ,51<1H*)/ 

*  13X,3(1H*,12X)  ) 

1040  F0RMAT{1H-,12X,4(1H*,12X)  /13X,4  (1H*,2X,A8,2X) /IH  ,  64  (IH*  . 

*  13X,4(1H*,12X)  ) 

1050  F0RMAT(1H-,12X,5(1H*,12X)  /13X, 5 ( IH*, 2 X , A8 , 2X) /IH  ,77(1H*)/ 

*  13X,5(1H*,12X)  ) 

1060  F0PMAT(1H-,1?X,6(1H*,12X)  /13X , 6  ( IH*, 2 X, A8 , 2X ) /IH  ,90(1H*)/ 

*  13X,6(1H*,12X)  ) 

1070  F0RMAT(1H-,12X,7(1H*,12X)  /13X,  7  (1H*,2X,  A8 ,2X)./.1H  1 0 3 < IH*.)./ 

*  13X,7(1H*,12X)  ) 

1080  F0RMAT(1H-,1?X,8(1H*,12X)  /13X,  8  (IH*,  2X,  A8 , 2X) /IH  ,116(1H*)/,. 

*  13X,8(1H*,12X)  ) 

1090  F0RMAT(1H-,12X,9(1H*,12X)  /13X, 9  (1H*,2X, A8 , 2X> /IH  ,129(1H*)/ 

*  13X,9(1H*,12X)  ) 

100  IF(M.GE.2)  GO  TO  305  . . 

K=0 

DO  200  1=1, TOT  ..  _  ._ 

IF(PER(I).EO.COOF(l) )  K=1 
IFCK.NE.l)  GO  TO  200 

tempi=ofrioo 

TEMP2=PER(I)  . .  .  .  .  .  _ _ 

IFd.NE.TOT)  GO  TO  105 

TEMPl=TOTAL  . 


30C01610 


30001620 
30001630 
30001640 
300D1650 
30001660 
_3!L0i)1670 
300016BG 
30001690 
30C017CO 
,30001710 
30001720 
30001730 
30001740 
30001750 
30001760 
30001770 
30001780 
...30  00 1790 
30001800 
.30001810 
300C1820 
30001830 
30001840 
..30001850 
30C0186G 
30001870 
30001880 
30C01890 
30001900 
,30001911 
30001920 
30001930 
300C1940 
30001950 
30001960 
.30  001970. 
30001980 
3D001990 
30002000 
30002010 
30002020 
.  3QJ)Q2jD30. 
30002040 
-30CQ2050 
30002060 
30002070 
30002080 
..  3Q002C90 
300021CO 
. 30002110 
30002120 
30002130 
30002140 
_  31002150 
30002160 
.30002170- 


D-90 


o  o  o  a  o 


105 

110 

120 

130 

140 

150 

160 


170 

lao 

150 

200 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1150 


TPMP2=5LANK 

GO  TO  (110, 120, 13C,140,15C, 160, 170,180, 100) , MV 
W5ITE(6,ill0)  TFMP1,TEM02, (PU5CH  ( J, T ) , J= I, NV) 
GO  TO  200 

WPITF  (6,1120)  TE*^P1,TFMP2,  (PUPCH  (J,T)  ,  J=1,NV) 
'GO  TH  200 

WPITF (6,1130)  TEMPI, TFMO?, (PURCH ( J, I) , J=l, MV) 
GO  TO  200 

WRITE (6, 1140)  TEMPI, TEMP2,  (PURCH  (J,T) ,  J=1,NV') 
GO  TO  200 

WRITF(6,1150)  TEMPI, TFMP2, (PURCH (J,T) , J=1,MV) 
GO  TO  230 

WRITE(6,1160)  TEMP1,TEMP2, (PURCH(J,I) ,J=1,NV) 
GO  TO  20C 

WRITE(6,1170)  TEMPI, TEMP2, (PURCH  (J, T> , J  =  l, NV) 
GO  TO  200 


WRITE (6, 1180)  TEMoi,temP2, (PURCH ( J, I) , J=1, NV> 
GO  TO  200 

WRITE(6, 119(1)  TEMo1,TFMP2,  (PURCH  (J,  I)  ,  J  =  l,  MV) 
CONTINUE 


FOPMAT (IH 
FORMATdH 
format (IH 
FORMATdH 
FORMATdH 
FORMATdH 
FORMATdH 
FORMATdH 
FORMATdH 


,A6,2X, A2,2X,  IH* ,2X , F8. 3,  2X 
,A6,2X,  A2,2X,2dH*,2X,F8.3,2X) 
,A6 ,2X, A2,2X,3(1H*,2X,C8.3,2X) 
,A6,2X,  A2,2X,4dH*,2X,F8.3,2X) 
,A6,2X,A2,?X,5(1H*,2X,F8.3,2X) 
,A6,2X,A2,2X,6(1H*,2X,F8.3,2X) 
,n6,2X, A2,?X,7(1H*,2X,F8.3,2X) 
,A^ ,2X, A2,?X,8(1H*,2X,F8.3,2X) 
,A6,2X, A2,2X,5(1H*,2X,P8.3,2X) 


/  13X,  1H*,12X 

/  13X,2(1H*,12X) 
/  13X,3(IH*,12X) 
/  13X,4(1H*,12X) 
7  13X,5dH*,12X) 
/  13X,6(1H*,12X) 
/  13X,7(1H*,12X) 
/  13X,8(1H*,12X) 
/  13X,q(lH*,12X) 


FIRST  RAPT  OF  THIS  SURROUTINF  OUTPUT  INFORMATION  CONCERNING 
EQUIPMENT  PURCHASES  OUPING  EACH  PERIOD  ..... 

NEXT  SECTION  OUTPUTS  RESOURCES  STORED 


WRITE(6,3000)  (TTTLE(I) ,1=1,4) 

M=3 

GO  TO  6 

305  IF(M.EQ.2)  GO  TO  2C5 
N  =  0 

no  4U0  1=1, NP 
K=iyP(T)-INYP+l 
IF(K.LE.O)  GO  TO  400 
N=N+1 

GO  TO  (310,320,330,340,350,360,370,380,390) ,NV 
310  WPTTF(6, 1110) PERIOD, COOE(N), (STnR(J, I) ,J=1,NV) 
GO  TO  400 

320  WRTTF(6,1120) PEPTno,nOOE(N) , (STOR(J,I) ,J=1,NV) 
GO  TO  400 

330  WPTTE(6,1130)PEPTOD,OODE(N), (STOP(J,I) ,J=1,NV) 
GO  TO  400 

340  WRITF(6,1140)PERIOO,COOE(N), (ST0R(J,I) ,J=1,NV) 
GO  TO  400 

350  MRTTE(6,1150) PERTon,COnE(N) , (STOR(J,I) ,J=1,MV) 
GO  TO  400 

360  WPITE(6,n60)PERTnD,CODE(N) ,  (STOR(J,I)  ,J=l,NV) 
GO  TO  400 

370  WRITE(6,1170)  PEPTnO,COOE(N) , (ST0P(J,T) ,J=1,NV) 
GO  TP  400 


30002180 

30002190 

30C02?Ca 

30002210 

30002220 

30002230 

300G224J 

3CC0225C 

30C0226C 

30002270 

3t)!:32280 

30002293 

30002300 

300C231Q 

30002320 

30.002330 

300C2340 

30CC235C 

30G02363 

30002370 

30002380 

30C02390 

30C024C0 

30C02410 

30002420 

30002430 

30002440 

3C302450 

30002480 

30002470 

30002480 

30002490 

30002500 

30002510 

3P002520 

30002530 

30002540 

30002550 

30CC2563 

30002570 

30002580 

30002590 

30!;Q26’:.3 

30002610 

30002620 

30002630 

30032640 

30002650 

30002660 

30002670 

30QC268C 

300026PG 

300027CC 

30002710 

30002720 

30002730 

30002740 

30002750 


D-91 


o  o  o  o 


380  MRITF(6,1180>PERTOO,nonE(N), (STOP(J,I) ,J=1,NV) 

60  TO  1*00  .  ..  _ _ _ _ _ 

390  MRlTE(6,liqO)PEPTOO,COOE(N) , (STOR(J,I) ,J=1,NV) 
400  CONTINUE 

3000  FORMAT (iHl»15X,4Al C  /  1H-, ♦STORED  RESOURCES*  ) 


REMAINING  PART  HILL  OUTPUT  THE  TOTAL  AMOUNT  USED 
DURING  EACH  PERIOD  . 

.WRITF(6,2000) (TITLE(T),I=1,4) 

M=2 

GO  TO  5 

205  N=0 

DO  3C0  1=1, NP  . 

K=IYR(I)  -INYP+1 
IFCK.LE.O)  GO  TO  3CC 
DO  206  J=1,NV 

206  EXTST(J,K>=EXIST(J,K)-STOR(J,I) 

N=N+1 

60  TO  (210,220,230,240,250,260,270,280 ,290) jNV  .. 
210  HRTTF{6,1110)  PERIOD , CODE (N) , (EXIST (J , K) ,J=1 ,NV) 

GO  TO  300 

220  WRITF(6,1120)  PERIOD , CODE (N) , (EXIST (J, K) ,J=1,NV) 

GO  TO  300 

230  HRITE(6,1130>  PERIOD , CODE (N) , (EXIST (J, K) ,J=1,NV) 

GO  TO  300  _  .  .  .  . . .  . _ 

240  WRITE(6,1140)  PERIOD, CODE (N) , (EX  1ST (J, K) ,J=1 ,NV) 

GO  TO  300 

250  WRITE(6,1150)  PERIOD, CODE (N) , (EXIST (J, K) ,J=1 , NV) 

GO  TO  300 

260  WRITE(6,1160)  PERIOD, CODE (N) , (EXIST (J, K) ,J=1,NV) 

GO  TO  300.  ..  . . . .  . .  ..  . .  .  _ _ ... 

270  WRITE(6,1170)  PERIOD, CODE (N) , (EXIST (J,K) ,J=1,NV) 
.GO  TO  300 

280  MRITE(6,1180)  PERIOD, CODE  (N)  ,  (EXTSKJ,  K)  ,J  =  1,NV) 

60  TO  300  .  . 

290  WRTTE(6,1190)  PERIOD, CODE(N) , (EXIST (J,K) ,J=1,NV) 

300  CONTINUE  . . . . . . 

RETURN 

2000  format (1H1,15X,4A10  /  1H-,*T0TAL  RESOURCES  USED*  | 
END 


30002760 

_ 3nnn?77n 

30002780 

30002790 

30002800 

_ _ 3.0.0.02810 

30002820 

__  _ 30002830 

30002840 

_  .  .  30002850 

30002860 

. . 3000287.0. 

30C0288D 

_ 30.00  2.8  90. 

30002900 

30002910 

30002920 

. 30002930 

30002940 

_ ...  .  30  0.0295.0. 

30002960 

.30002970 

30002980 

. 3.0002990 

300030LO 

_ .30  0J).3.0111 

30003020 

.  3CC0303D 

30C03040 

.  _  30003050 

30003060 

_ _ 30013070. 

30003080 

.  30003090. 

300031C0 

. . 300.03110 

30003120 

_ 3.{L5Q313iL 

30003140 
..  ...  30003150 

30003160 


SUnPOUTTNE  5ETUO 

COMMOM  /VECSTG/  ,C,LENP,VLTFE  (1 ,)  ,INH(1C,16)  , 

♦  VCOSTdD,^)  tNflMCMdO)  tCOSTSC^Oi^) 

roiMfiM  /^Asins/  rHflocFooOjtf)  ,'^nnE(E0>  ,pe’’(io)  ,iyr(io>  ,LY«>dO) 
COMMON  /OUTS/  OAMrM(;>C)  ,SALE(2G)  ,SaVE(?0)  ,EXISTd0,20)  , 

*  oUPCHdO  ,20)  ,STOPd0,20)  ,SALV{1C,?C)  , PPOC  ( 20 )  ,PPOT  (20  ) 
COMMON  /PAPAMS/  PDTQT , T NYP, L AST , NV, NP , TOT, TITLE (4) , COST 
OTMFNSTOM  TEMP(4) 

OATA  IVT,I»T,IEO/«HVrHICLE  ,8HP'"PinO  ,8HFN0TAPLE/ 

MVP  =  0 
NOTrC 

PE AO (S, ICO 0)  FNAMF,INYR,LAST,NV,NT,NP 
1000  Fn»MaT(A8,2X,6I5) 

10  PEAO(5,1000) TTAPLF 

IFdTAOLE.EQ.  IVT)  GO  TO  20 
IF(TTABLC.EQ.TOT)  go  TO  60 
TF(ITABLF.EQ.TED)  GO  TO  100 
W9TTF(6,2000) ITARLE 

2001  FORMAT  dH-,A8,»  IS  NOT  PECOGNIZEO  RY  SETUP*) 

STOP 

20  NVR=NVP+1 

READ (5, 400 C)  VNAMF (NVP) , VL IFE (NVR ) 

REA0(5, 1070)  (VCOSKNVP, I)  ,1  =  1,5) 

1070  FORMaT(5F10.2) 

GO  TO  10 
60  NPT=M“T+1 

RE AO (5, 1140)  TYR{WPT) ,LYR (NPT) ,P"R(NPT) ,OROT (NRT) 

1140  F0RMAT(T4,T5,lX,n2,F«.2) 

GO  TO  10 

4Cu0  F0RM5T(A8,11X,I2) 

100  CONTINUE 

PROT(NPT+l)  =  0. 

110  CONTINUE 

REAO(O,SG00)  I, (TFM0(J) ,j=l,4) 

3000  FnRMAT(I5,4X, A1,3A?) 

IF(EOF, 0)200, 150 
150  DO  160  J=l,4 
160  CHAP(I, J)=TEMP{J) 

GO  TO  110 
2j0  RETURN 
EMO 


30003170 
30003180 
300C31O0 
:^CQ0X2C0 
^0003210 
3C0C3220 
30C0323CI 
3C00324C 
30003250 
3000326i) 
3GuC327C 
3CC03280 
300032P0 
300)3300 
30003310 
30003320 
30C03330 
3CS33343 
30DC3350 
30GC3360 
30CD337Q 
3000M380 
30003390 
30 C 03400 
30C03410 
30003420 
30003430 
3D0C344Q 
30003450 
30003460 
300 J3470 
30003483 
300C3490 
3CCC35C0 
3C003510 
3000352C 
30C03530 
30003540 
30003553 
3000356C 
30C03570 
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SURPOUTINE  VALUES(N,LS.TART»IENO,VALr  _ 1000358(1 

COMMON  /VECSTG/  VNAMF (10 ) , C,LENP , VLIFE (1 j) f INH ( 10 , 16) ,  30003590 

*  VCnST(10,5)  ,NAMEN(10)  tCOSTS(30,3)  300.03600 

COMMON  /BASICS/  CHAP ( 5000 , 4) ,COOE (20) , PE»( 10) » lYP ( 10) »L YP (10)  30003610 

COMMON  /OUTS/  OANnM(?0) ,SALE(20) ,SAVE(20),EXIST(10,20) ,  _30PQ3620 

*■  PURCH  ( 10,20 ),  STOP  (10, 20)  ,SALV  (10,20)  ,PPOC(20)  ,PR0T  (20)  30003630 

COMMON  /PA PAMS/  ROTOT,.INY.P,LAST,  NV,NP,  TOT,  TITLE{4.).,C0ST . . 30J1IL164D. 

CALL  YPCOST(N)  30003650 

I=ISTAPT-INYP  30003660 

II=TENO-ISTAPT+l  30003670 

K-l  30003680 

DO  10  J=1,II  30003690 

I-I+l  .  ;  . _ _  _  J5Q.003-7.00 

IF(I.LE.O)  GO  TO  IP  30003710 

OANOM(I)=OANnM(I)+COSTS(J,K)*VAL  30003720 

EXIST(N,I)=EXIST(M,I)+VAL  30003730 

10  CONTTNUF  -  --  30003740 

I-I+l  30003750 

KsK+l  ^300.0376.0 

IFdEND.FQ.LAST)  K=K+1  ’  30003770 

SALE(I)=COSTS(J,K)*VAL+SALE(I)  3QD03780 

SALV(N,I)=VAL+SALW(N,I)  30003790 

RETURN  30003800 

ENO  30003810 
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SUgonUTIME  YPCOST(J> 

a  SURPOUTINE  to  compute  the  operating,  salvage,  ano  TRUNCATIOM 

COSTS  YEAR  BY  YEAR,  ALSO  THE  YEAPLY  MOTHBAlLING  SAVING  IS  COMPUTED 
COMMON  /VECSTG/  VNAME(IO),  C,LENP,  VLIFEdOl*  TNH(10,16), 

*  VCnST(lC',5),  NAmeN(IO),  CnSTS(3P,3) 

INTEGER  VNAME,VLIFE 

ASSUME  THE  OPERATING  ANO  MAINTANCE  COST  INCPEACES  AT  P»100  PER-CENT 
A  YEAP  (NOT  A  COMPOUMO  PATE  TNCEASE) 

p=o.c 

LET  X=  THE  1ST  YEAR  ANO  M,  COST.  THEN 

X+(l*R)*X+(f2*R)*X*, ..+(1+9*P)»X=VC0ST(J, 
X=  VCOST(J,2) /(IC.C  ♦  45.0*R) 

ASSUME  NO  PERIOD  IS  LONGER  THAN  6  YEARS, 

IB=VLIFE{J)  +10 
DO  10  1=1, IB 

rOSTS(T,l)  =(1.0  +  FL0AT(I-1)+R)*x+(VC0ST(J,4)++<I-1)) 

10  CONTINUE 

ASSUME  THE  SALVAGE  VALUE  OF  A  VEHICLE  AFTER  I  YEARS  OF  SERVICE  IS 
(ALPHA)*+I  ^^PURCHASE  GOST, 

ALPHA=0.5 

Y=VCOST(J,l) 

DO  20  1=1, IB 
Y=  ALPHA+Y 
C0STS(I,2)=Y 
2J  CONTINUE 

ASSUME  TRUNCATION  AFTER  lYEAPS  OF  SERVICE  IS 
( VLTFE-T)*( PURCHASE  COST) /VLIFE 

Y=VCOST(J,l) /VLTFF(J) 

DO  30  1=1, 18 
IX=VLTFE(J)-I 
IF  (IX.LT.D)  IX=C 
C0STSCT,3)=IX»Y 
30  CONTINUE 
RETURN 
ENTRY  MOTH 

ASSSUME  THE  MOTHBALLING  SAVING  IS  Rl+lOO  PER  CENT  OF  THE  FIRST  YEAR 
Ri=o.qo 
C=0 

DO  546  IL=1,LENP 

546  C=C-C,l*Pl*VCOST(J,2) ♦VC0ST(J,4) +*(IL-1) 

C  =-X  *  R1 

C=-VCOST(J,2) /(lO.C  ♦  45,0*R)  ♦  PI 

RETURN 

END 


10005630 
1000A64G 
.  1CCCB650 
1000866C 
10008670 
10008680 
10008690 
100087CC 
10CC8710 
10008720 
10008730 
2) 10008740 
10C08750 
10008760 
10008770 
1CC03780 
10008790 
10008800 
10008810 
10008820 
10008830 

10006850 
10C0886C 
10QC3870 
10008880 
10003890 
1CC089CC 
10CC8910 
1C008R20 
10008930 
10008940 
10C0895C 
10CC896C 
10008970 
10:C898J 
10 CC 8990 
100C900C 
100C9C10 
COST-X 


1CC0908G 

10009090 
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ERROR  MESSAGES  FROM  MATRIX  GENERATOR  . 

.  .  Is  not  a  table  name." 

This  message  indicates  that  the  input  deck  is  not  properly  con¬ 
structed  since  the  program  has  read  a  card  which  should  have  been  a 
header  card  but  was  not.  The  location  of  the  error  can  be  narrowed  down 
by  checking  the  output  listing  to  see  which  tables  have  been  correctly 
read.  This  error  terminates  execution. 

"Vehicle  name  .  .  ♦  not  defined  in  a  vehicle.” 

This  message  is  output  when  a  task  table  is  being  read.  It  indica 
tes  either  that  the  vehicle  name  is  misspelled  or  located  improperly  on 
the  card,  or  that  the  task  table  has  preceded  the  vehicle  table,  if  the 
vehicle  table  exists.  This  error  also  terminates  execution. 

"The  period  tables  are  out  of  order . " 

This  message  indicates  that  the  first  year  of  the  period  just 

read  was  not  equal  to  one  plus  the  last  year  of  the  last  period  read. 

This  can  be  caused  by  improper  sequencing  or  improper  definition  of  the 

periods.  This  error  will  cause  execution  to  terminate. 

"Warning— the  number  of  tables  input  was  not  the  expected  number.” 

This  message  does  not  terminate  execution,  but  does  indicate 

that  there  was  a  difference  between  the  number  of  tables  indicated  on 

the  title  card  and  the  number  actually  read  by  the  program. 

"Incorrectly  read  file  .  .  .  columns  read  as  .  .  . 

"The  M-1  column  was  ....  unable  to  find  RHS  mark. 

"Reached  EOF  while  writing  column  .  .  .  and  row  .  .  ." 

These  three  error  messages  all  refer  to  errors  encountered  when 

trying  to  convert  the  MPS360  file  to  the  file  for  BBCAV2.  If  one  of 

E-2 


these  errors  occurs,  a  major  problem  exists  within  the  program.  As  a 
result  these  prevent  the  creation  of  the  BBCAV2  file,  but  allow  the  pro¬ 
gram  to  execute  to  completion  to  give  the  analyst  the  most  information 
possible  about  the  problem. 

ERROR  MESSAGES  FROM  MAIN  PROGRAM 
"BLIST  size  exceeded" 

BLIST  is  the  array  used  for  storing  nodes  of  the  branching  tree. 

It  is  presently  dimensioned  to  handle  25  nodes.  When  there  exist  more 
than  25  nodes  which  have  been  defined  but  have  not  been  evaluated,  this 
message  is  generated.  It  indicates  that  this  particular  problem  is  con¬ 
verging  very  slowly,  and  if  one  desires  an  accurate  answer  then  the  arrays 
EKBL,  PSIGL,  RXBL,  XNXBL,  and  BLIST  should  be  enlarged.  This  error  causes 
the  system  to  print  out  the  best  solution  found  and  proceed  to  the  next 
problem. 

"Time  is  up  .  ♦  .  cycling  to  next  problem." 

"Have  solved  max,  no.  of  LP  probs." 

These  two  messages  inform  one  that  the  solution  which  is  output 
is  not  necessarily  optimal  but  was  caused  by  one  of  the  input  parameters. 
The  first  message  indicates  a  violation  of  the  time  indicated  by  the 
second  field  of  the  real  parameter  card.  The  second  message  is  a  result 
of  reaching  the  limit  on  the  number  of  nodes  (LP  problems)  which  is  set 
in  the  last  field  of  the  integer  parameter  card. 

"Premature  EOF  on  a  matrix  tape  at  column  ..." 

This  message  indicates  that  the  size  of  the  tape  file  does  not 
correspond  with  the  size  indicated  on  the  integer  parameter  card.  It 
also  gives  an  indication  of  the  size  of  the  tape  file  for  comparison 
against  that  which  was  input.  This  error  terminates  execution  of  the 
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”KEX  =  0  in  GETPHI” 

“Invalid  MOES  in  GETASQ  =  0” 

"Invalid  KCX  =  0  in  GETC'* 

These  three  error  messages  all  indicate  that  an  invalid  parameter 
value  has  been  passed  from  some  routine  to  one  of  these  listed  above. 
These  messages  were  used  primarily  for  debugging  and  should  not  appear 
in  normal  operations.  If  they  do,  it  indicates  an  error  exists  in  the 
program  code  somewhere.  These  messages  all  terminate  execution. 

"IF  -  insufficient  space  allocated  in  IMAJ" 

This  fatal  error  is  a  result  of  having  a  matrix  in  excess  of  100 
rows,  thus  giving  an  inverse  too  large  to  be  stored  in  the  array  AJ 

(11000).  To  correct  this  condition  set  AJ  ( - )  to  an  appropriate 

size  for  the  problem,  and  set  HWAJ  equal  to  that  value.  If  this 
error  occurs,  many  other  arrays  may  also  need  to  be  redimensioned  to 
insure  proper  storage. 

"SETUP- -row  type  error— out  of  range" 

This  statement  indicates  the  row  type  indicator  exceeds  4  and 
therefore  the  row  cannot  be  defined.  For  this  problem  structure  the 
only  valid  row  types  are  0  for  equality,  3  for  free,  and  4  for 
generalized  upper  bound.  This  error  should  not  occxir,  since  the 
vector  IROWTP  is  set  by  the  matrix  generator.  This  error  will 
terminate  execution. 

"PRIMAL — too  many  reject  vectors" 

This  message  Implies  that  more  than  100  columns  have  been  rejected 
for  degeneracy  reasons.  This  is  fatal  if  the  LP  is  in  the  infeasible 
phase,  and  causes  an  optimal  solution  to  be  assumed  otherwise. 


”10 — column  not  located  in  NT  reads" 

”Row — key  not  In  core" 

"Insert  cannot  find  re.jected  colvunn" 

"PIVOT— PIVOT  less  than  PIVTOL" 

"KEYCH — essential  packet  no  basic  column" 

These  five  error  messages  are  used  exclusively  for  debugging,  and 
should  not  occur  in  normal  operation.  The  general  cause  for  this  is 
that  some  section  of  core  has  been  overwritten  accidently. 

"PIVOT  dropped  column  .  .  ." 

This  message  indicates  that  a  column  was  removed  from "the  basis 
during  the  inversion  process.  This  occurs  when  the  input  basis  is 
not  feasible,  and  when  numerical  errors  have  caused  the  current  basis  to 
"drift"  out  of  the  feasible  region. 

ERROR  MESSAGES  FROM  REPORT  GENERATOR 
".  .  .is  not  recognized  by  SETUP." 

The  routine  SETUP  has  encountered  an  error  in  the  input  deck  while 
attempting  to  read  a  table  name.  This  error  terminates  execution. 

"Error  in  interpretation  of  .  .  . " 

The  program  has  been  unable  to  determine  the  meaning  of  the  seven- 
character  code  indicated  in  the  message.  If  the  code  is  a  valid  one 
(one  of  the  forms  shown  in  Fig.  11 ),  then  there  is  probably  an  error  in 
the  period  descriptions  of  the  input  deck.  There  is  also  possibility 
of  other  errors  in  the  input  deck  or,  as  a  last  resort,  of  errors  in 
the  reference  list  file.  If  the  code  is  not  a  valid  one,  then  the 
error  must  be  in  the  reference  list.  This  error  also  terminates  execution. 
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This  section  contains  the  mnemonic  definitions  for  all  three 
programs — GENLCP,  BBCAV2,  and  EEPGEN.  It  is  arranged  into  two  major 
sections.  The  first  section  lists  the  mnemonics  in  labeled  common — 
then  the  local  variables  contained  within  each  subroutine,  for  each 
of  the  three  programs,  respectively.  The  second  section  is  an  overall 
alphabetical  listing  for  handy  reference.  Note  that  in  this  listing, 
the  same  mnemonic  may  have  two  or  more  meanings.  Each  entry  is 
identified  here  as  a  local  or  global  variable,  and  is  cross-referenced 
to  the  first  section.  Use  of  the  two  sections,  in  conjunction,  should 
eliminate  any  ambiguity. 


SECTION  1 . G-2 

SECTION  2 . G-25 
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Section  I 


GENLCP  CODING  DEFINITIONS 


common/vecstg/ 

VNA.ME  (lO) 

C 

lenp 

VLIFE  (10) 

INH  (10,  l6) 

VCOST  (10,5) 

NAMEN  (10) 

COST  (30,  3) 
commdn/aitstg/ 

ALTER  (288,9) 

YAVL  (lO) 

common/tskstg/ 

U  (7,  288,  9) 

NTSK  (9) 
common/frdstg/ 

NPERYR  (10,  3)  -  first  and  last  year  of  period  and  numter  of  tasks 
in  period 

NPTASK  (lO,  9)  -  ID  number  of  each  task  in  period 

PTASK  (10,  9)  -  multiplicative  factor  for  all  values  in  associa¬ 

ted  task  for  each  period 

LOCAL  VARIABLES 
GENLCP 

ALPHA  "  temporary  storage  for  attrition 

AU  (l6)  -  temporary  storage  for  alternatives 

G-2 


-  vehicle  names 

-  temporary  storage  for  cost  data 

-  length  of  period 

-  maximum  life  of  resource  (vehicle) 

-  number  of  each  type  resource  inherited  from  each 
year 

-  cost  data  for  each  resource 

-  pointers  for  numbering  resources 

-  yearly  operating,  salvage  and  truncation  costs 

-  array  used  for  eliminating  infeasible  alternatives 
from  tasks 

-  year  resource  first  available 

-  array  of  task  alternatives 

-  number  of  alternatives  in  task 


BUDG  (lO) 

CMAX 

FKAME 

IHVN  (10) 

IMYRS 

ITABLE 

LIFER 

LY 

MAXL 

MCOL 

NAMES  (lO) 
NINHP  ■ 
NIV 

NL  (10) 

HN  (10) 

NPP 

NPT 

NRD 

NROW 

NT 

NTR 

NV 

NVEHU  (10) 

NVE 

NYE 

ONE 

ONEM 


-  limit  on  procurement  expenditures  in  each  period 

-  temporary  cost  storage  for  ordered  resources 

-  file  name 

-  pointers  for  inherited  vehicles 

-  number  of  years  from  which  vehicles  are  inherited 

-  temporary  storage  for  table  name 

-  temporary  storage  for  remaining  useful  life  of 
a  vehicle 

-  last  year  of  problem 

-  temporary  storage  for  vehicle  life 

-  number  of  columns  in  matrix 

-  temporary  pointers 

-  ntimber  of  inherited  periods 

-  number  of  inherited  vehicle  types 

temporary  storage  used  in  formatting  output 

-  number  of  periods 

-  number  of  period  tables  read 

-  number  of  vehicles  having  R&D 

-  number  of  rows  in  matrix 

-  number  of  tasks 

-  number  of  task  tables  read 

-  number  of  vehicle  tsrpes 

-  indicates  if  vehicle  used  in  period 

-  number  of  vehicle  tables  read 

-  temporary  storage  for  last  year  of  period 

-  "1.0" 

-  "-1.0" 
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SY 

UB  (10) 
UMAX 

YEARS  (21) 
YEIET  (20) 

YRCOST 

ALPHA 

R 

R1 


-  start  year  of  problem 


-  calculated  upper  bounds  on  resources 


-  temporary 

specific 


storage  for  greatest  quantity  of  a 
vehicle  which  might  be  used  in  a  task 


-  stores  inherited  years 

-  scale  factor  for  all  tasks  in  period 


-  rate  of  decrease  in  salvage  value 

-  rate  of  increase  in  operating  cost 

-  portion  of  operating  cost  refunded  for  mothball¬ 
ing  resource 


yirterp 

JSUB  (10) 
VMIN 


-  pointers  for  vehicle  subscripts 

-  temporary  storage  for  minimum  quantity  of  vehicles 
which  can  be  used  for  a  task 


MATFILL 

C 

CKAME 

CTEMP 

IRDWTP  (lOO) 

ITEMP 

R 

RHAME  (120) 
RTEMP 
RVAL  (100) 
VAL 


-  "COLUMNS” 

-  column  name  for  which  RVAL  is  being  derived 


temporary  storage  for  column  name 

indicates  rc»  type;  all  set  toj'f  . 

generalized  upper  bound  rows  whxch  are  set  to  4 

H+.nrase  for  first  letter  of  RKAME 


-  "RHS" 


-  row  names 

-  temporary  storage  for  row  names 

-  vector  of^ values  in  each  row  for  a  specific  col\imn 

-  temporary  storage  for  value  of  specific  row  and 
column 
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BBCAV2  CODING  DEFINITIONS 


COMMDN/CVl/ 

IP  (12) 

ftp  (12) 

TMP  (10) 
C0MMDN/CV2/ 

T  (100,  10) 

BO  (100) 
BLO  (lO). 
UW)  (10) 

CO  (10) 

COMMON/CV3/ 

M 

N 

NCF 

PHIT 

UZ 

USP 

USM 

EKO 

MPLUS 

C0MM0N/CV4/ 

IX  (no) 

X  (no) 


-  storage  for  input  parameters  on  integer  parameter 
card 

-  storage  for  real  parameters,  first  four  locations 
are  for  input  from  real  parameter  card,  rest  are 
temporary  storage 

-  temporary  storage 


-  storage  for  columns  of  matrix  associated  with 
nonlinear  variables 

-  right-hand-side  vector 

-  set  of  lower  bounds  on  nonlinear  variables 

-  set  of  upper  bounds  on  nonlinear  variables 

-  vector  for  linear  approximation  for  nonlinear 
cost  functions 


-  number  of  rows  in  matrix 

-  number  of  columns  in  matrix 

-  number  of  nonlinear  variables 

-  cost  of  a  nonlinear  solution 

-  cost  of  best  nonlinear  solution 

-  UZ  (1  +  € 

-  UZ  (1  -  6 )”^ 

-  cost  associated  with  the  lower  bounds  of  the  node 

-  nvmiber  of  rows  in  the  matrix  including  the  cost 
row  (M  +  l) 

-  columns  in  basic  solution 

-  values  associated  with  columns  in  IX 
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IXZ  (no)  -  columns  in  best  solution 

XZ  (no)  -  values  associated  with  columns  in  IXZ 

XCON  (lO)  -  stores  values  found  in  X  which  are  associated 

with  the  nonlinear  variables 

COST  -  cost  of  the  solution  returned  from  the  LP 

COMMON/CV^/ 

SIGM/'i  (lOO,  4)  -  stores  information  which  defines  the  current  node 


TSIG 

LSTMAX 

C0tM)N/CV7/ 

NPmSE 

KFl 

CFX 

lOPT 

MOP 

MOPS 

MEWXZ 

commom/cvS/ 

MXBK 

XK 

NOBOL 
EKBL  (25) 
COMM3M/CV9/ 

PSIGL  (25) 
MXBL  (25) 
XMXBL  (25) 


-  temporary  storage  associated  with  EKO 

-  maximum  length  which  the  branching  list  has 
achieved 

-  stores  LP  phase  code 

-  signifies  feasible  solution  when  set  equal  to  1 

-  no  longer  used 

-  used  to  flag  unbounded  solution 

-  node  number 

-  nodes  solved 

-  flags  when  new  best  solution  found  and  should 
be  output 

-  index  of  branching  variable 

-  value  of  branching  variable 

-  number  of  nodes  on  list 

-  EKO  value  associated  with  each  node  on  the  list 

-  lower  bound  associated  with  each  node  on  list 

-  index  of  branching  variable  for  each  node 

-  value  of  branching  variable  for  each  node 


BUST  (25,  131)-  branching  list;  contains  right-hand-side  vector, 
plus  upper  bounds,  lower  bounds,  and  linear  cost 
approximations  for  nonlinear  variables 
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commdn/tmk/ 


TMO 

EXT 

common/core/ 

AJ  (5000) 

JA  (101) 

JAK  (101) 
JAREJ  (101) 

common/params/ 

tmax 

itrinv 

iNvr 

KL 

K2 

K3 

K4 

K5 

commdw/imput/ 

INPUT 

INPUTM 

INPUTN 

common/files/ 

lAl 

IA2 

IMAP 

commun/state/ 

IROW 


-  time  SET  was  called 

-  time  when  time  limit  on  problem  will  expire 

-  colvimns  in  core  plus  basis  inverse 

-  in-core  column  disc  indices 

-  dummy  storage  area 

-  set  to  1  when  corresponding  in-core  c'olumn 
re;3ected 

-  maximum  time  before  MAPOUT 

-  iteration  of  next  invert 

-  invert  frequency  ' 

-  not  used 

-  not  used 

-  output  control  parameter 

-  XCHECK  control  paxameter 

-  maximum  LP  iterations  before  MAPOUT 

-  file  containing  input  matrix 

-  nvunber  of  rows  in  matrix 

-  number  of  columns  in  matrix 

-  disc  file  for  matrix  less  GUB  rows 

-  disc  file  for  packed  matrix  less  GUB  rows 

-  file  for  starting  and  terminating  basis 

-  current  selected  row 
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ITEN 

JCOL 

JOUT 

JPOS 

KDJS 

NPIF 

NEEJ 

COMMDN/LIMS/ 

JNCORE 

MAXTRY 

NCRMAX 

WSCAN 

NTRY 

common/ixx/ 

IX  (100) 

common/xx/ 

X  (100) 

common/tols/ 

CTOL 

DEREOL 

DJTOL 

PERTOL 

PIVTOL 

ZERO 

commoh/easis/ 

IBASIS  (101) 
KBTS  (lOl) 


-  iteration  count 

-  current  selected  colvunn 

-  rejected  column  index 

-  selected  column  index 

-  number  of  negative  BJ’s 

-  number  of  primal  infeasibilities 

-  number  of  rejected  in-core  columns 

-  number  of  columns  in  core 

-  maximum  number  of  in-core  iterations 

-  maximum  number  of  coliunns  which  fit  in  core 

-  number  of  disc  reads 

-  number  of  in-core  iterations 

-  indices  of  solution  columns 

-  values  of  solution  columns 

-  cost  tolerance  for  infeasibility 

-  dual  error  tolerance;  not  used 

-  DJ  tolerance 

-  primal  error  tolerance 

-  pivot  tolerance 

-  smallest  recognized  number 

-  basic  columns  for  non-GUB  rows 

-  storage  of  GUB  key  columns 
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commoij/djs/ 

DJ  (lOO)  , 

commdn/moves/ 

BKDJ 

DMAX 

DUALER 

PE?MLER 

THETA 

comkpn/i/ 

IC 

ICOST 

lEHASE 

IPI 

JRHS 

L 

M 

MC 

MEL 

HT 

common/a/ 

ALEEIA  (101) 

commpn/b/ 

BETA  (lOl) 

COMMOH/C/ 

GAMMA  (101) 

commoh/d/ 

DELTA  (101) 


-  values  of  current  in-core  BJ's 

~  value  of  current  column  bound 

-  largest  DJ  value  stored 

-  dual  error;  unused 

-  primal  error;  unused 

-  step  chosen  by  ROW,  adjusted  in  PRIMAL 

-  current  cost  row 

-  user’s  cost  row 

-  current  LP  phase 

-  current  location  of  PI  vector  in  basis 

-  user’s  input  RHS 

-  number  of  GUB  rows 

-  number  of  active  interval  rows 

-  last  logical  column 

-  M  plus  L 

-  total  number  of  columns  (MC!  +  INPUTU) 

-  work  space,  usually  current  column  inverse 

-  work  space  usually  values  of  basic  and  key 
variables 

-  not  used 

-  not  used 


commow/rowtyp/ 

IROWTYP  (lOl) 
commow/hames/ 

name  (6oo) 

nOMMON/BOUroS/ 

BOUNDS  (100) 
IBDS  (lOO) 
NBDS 

common/ehs/ 

EHS  (lOO) 
TOCAL  VARIABLES 
BBCAVP  and  BOXl 


-  user's  input  row  types 

-  state  of  each  variable  or  column 


-  values  of  upper  bounds 

-  column  indices  of  bound  columns 

-  number  of  bounds 

-  stores  user's  current  right-hand- side 


BLT  (10) 

BBK 
BBK2 
COSTl 
C0ST2 
CT  (lO) 

EPSI 

ESIG 

ICOL 

INDIC 

LSTFRE  (25) 

MNC 

MNX 

NCFl 


-  temporary  storage  for  BLO 

-  lower  bound  on  branching  variable 

-  value  of  branching  variable 

-  solution  cost  for  lower  branch 

-  solution  cost  for  upper  branch 

-  temporary  storage  for  CO 

-  epsilon  value  from  real  parameter  card 

-  temporary  storage  for  EKO 

-  temporary  storage  for  column  index 

-  indicates  which  branch  (upper  or  lower)  is  being 
solved 

-  gives  locations  of  storage  areas  on  the  branch¬ 
ing  list  which  are  vacant 

-  the  negative  of  NCF 

-  the  negative  of  N 

-  NCF 
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ncf4 

NFREE 

KMIN 

NOL 

NORA 

NXB 

HD.  and  EH2 
HUN 

TSTO  (130) 
TITLE  (4) 
UBK 
UBK2 

ULT  (10) 

US 


-  NORA  +  3  *  WCF 

-  nuniber  of  gaps  (empty  location  between  two  filled 
locations)  in  the  BLIST 

-  index  of  the  lowest  bound  on  the  BLIST,  or  N-1, 
depending  on  where  it  is  used 

-  index  for  storage  on  BLIST 

-  M 

-  temporary  storage  for  next  branching  variable 

-  temporary  storage  of  values  from  GETHII 

-  value  of  lowest  bound  on  BLIST 

-  temporary  storage 

-  alphanumeric  title  of  problem 

-  upper  bound  on  branching  variable 

-  difference  between  upper  bound  and  value  for 
branching  variable 

-  temporary  storage  for  UIO 

-  temporary  storage  for  USP 


INITA 

AJ  (100)  -  temporary  storage  for  column  of  matrix 

DUML  and  DUJC  -  temporary  storage  for  reading  unused  sections 
of  tape 


READIN 

NC 


TIMEC 

SECS 

XX 

GETASQ 

TEMP 

nem:i 


-  number  of  basis  cards  to  be  read  from  input 

-  actual  CPU  clock  time 

-  elapsed  time  on  problem 

-  location  used  while  swapping  contents  of  two 
locations  in  an  array 

-  number  of  elements  in  an  array  minus  one 
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GETC 


DIF 

FXl  (10) 
FX2  (10) 
ICX 

ft 

MXBRN 

BLT  (10) 

CT  (10) 

IT  (10) 

FXl  (10) 
FX2  (10) 

'  DIF  (10) 

KDX  (lO) 
WFX 

XT  (10) 

PRESET  AM)  PARAMS 
IBMAX 


JBMAX 


KORA 


-  difference  between  upper  and  lower  bound  for  a 
variable 

-  cost  function  values  for  lower  bounds 

-  cost  function  values  for  upper  bounds 

-  number  of  variables  for  which  cost  slopes  are 
to  be  derived 

-  temporary  storage  for  BLO 

-  temporary  storage  for  CO 

-  differences  between  solution  point  and  lower 
bounds 

-  cost  function  values  for  lower  bounds 

-  cost  function  values  for  solution  point 

-  differences  between  cost  functions  and  linear 
approximations 

-  indices  of  nonlinear  variables 

-  the  negative  of  KCF 

-  solution  values  for  nonlinear  variables 


-  maximum  nimiber  of  nodes  which  may  be  stored  on 
BLIST 

-  maximum  number  of  words  of  information  which  may 
be  stored  for  each  node  in  BLIST 

-  number  of  rows  in  the  matrix  including  the  objec¬ 
tive  function 


B  (lOO) 
lORG 
MROWS 
NCHGS 


-  basis  inverse  stored  by  rows 

-  origin  of  basis  inverse 

-  user's  number  of  rows 

-  user's  number  of  bound  columns 
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NCOLS 

NWAJ 

SETUP 

ID 

IKOST 

INON 

PKTl 

PKT 

10 

ALPHA 

B 

JCOL 

JWT 

KEI 

KOLl 

K0L2 

KOL 

NAAM 

HAME 

PACK  (100) 

ZS 

Z 

MAPIN 

ATBND 

BASIC 

BEDJ 

B 


-  user's  number  of  columns 

-  storage  dimension  of  the  array  AJ 

-  local  row  type  being  processed 

-  temporary  storage  of  user's  cost  row  ■ 

-  temporary  number  of  non-GUB  rows  found 

-  temporary  count  of  GUB  row  packet  columns 

-  actual  GUB  row  column  being  processed 

-  column  to  be  written  or  read 

-  address  of  origin  of  basis  inverse 

-  core  position  of  column  being  read 

-  index  of  columns  read 

-  index  of  key  column  to  be  located 

-  last  column  read  on  file  lAl 

-  last  column  read  on  file  IA2 

-  column  to  be  located  on  either  file  or  packet 
nuniber  of  desired  key 

-  not  used 

-  column  name,  or  position  in  core  to  which  column 
is  read 

-  temporary  storage  of  packed  column 

-  parameter  used  to  pack  coefficients 

-  parameter  used  to  pack  index  of  coefficient 

-  "ATBND" 

-  "BASIC" 

-  value  of  bound 

-  origin  of  basis  inverse 
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mpouT 


INVERT 


CARD  (8) 

ENDER 

ID 

INVERSE 

KEE 

.MM 

NAMES  (5) 

NULL 

PKT 

ROWS 

TYPEl 

TYPE2 


-  image  of  map  card 

-  "END" 

-  column  number  from  map  card 

-  "INVERS" 

-  "KEY" 

-  number  of  elements  in  basis  inverse 

-  column  indices  from  map  card 

-  "NULL" 

-  storage  of  column  packet 

-  "ROWS" 

-  first  word  on  map  card 

-  second  work  on  map  card 


IBAS 

IBND 

IKEY 

INLL 

JCOL 

JNCORE 

MAEBAS  (100) 

MAPBUD  (100) 

MAPKEY  (1000) 

MAPNLL  (10) 

MM 

MPl 


-  count  of  basis  variables 
-count  of  bound  variables 

-  count  of  key  variables 

-  count  of  null  variables 

-  user’s  column  index  of  column  processed 

-  number  of  colvimns  in  core 

-  basic  column  indices 

-  bound  column  indices 

-  key  column  indices 

-  null  column  indices 

-  nvimber  of  elements  in  basis  inverse 

-  M  plus  1 


ATBND  -  column  type 

-  column  type 


BASIC 


BNDJ 

B 

lORG 

mPE 

JUT 

,JORG 

JTTPE 

KORG 

PKTO 

PKT 

FEASCH 

BRDJ 

B 

lORG 

JPECT 

KEY 

NB 

SUMIE 

SUM 

PRIMAL 

BASIC 

B 

EPSI 

ITYPE 

JOUTPK 

JPOSPK 

NBVPKT 


“  cound  on  current  column 
“  origin  of  basis  inverse 

-  origin  of  first  element  in  B 

-  row  type 

-  current  column  index 

-  origin  in  AJ  to  which  column  is  read 

-  variable  type 

-  origin  in  AJ  to  which  key  column  is  read 

-  GUB  packet  number  of  column  in  AJ  (KORG) 

-  GUB  packet  number  of  column  being  processed 

-  bound  on  current  column 

-  basis  inverse 

-  origin  of  any  row  in  B 

-  GUB  packet  of  current  column 

-  switch  to  return  key  processing  to  key  loop 

-  number  of  basic  variables  in  a  packet 

-  STim  of  infeasibilities 

-  value  of  variable  before  feasibility  adjustment 

-  column  type 

-  basis  inverse 

-  value  of  new  basic  variable 

-  type  of  step  to  be  used 

-  GUB  packet  of  column  rejected 

-  GUB  packet  of  column  entering 

-  number  of  basis  variable  in  selected  GUB  row 
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NPEGLM 

-  maximum  rejection  due  to  degeneracy 

KDK 

-  nuniber  of  degeneracy  rejections 

NEWROW 

-  row  for  column  changing  from  key  to  basic 

■  m 

STATUS 

M 

ATBKD 

-  state  of  a  column 

BASIC 

-  state  of  a  column 

B 

-  basis  inverse 

COST 

-  value  of  current  objective  function 

JRSCAN 

-  columns  in  core  +  1000  times  number  of  rewinds 
of  file  lAl 

ONTO 

-  index  of  last  column  read  from  disc 

JUT 

-  last  column  read  fi*om  disc  (if  MNTRY  =  0  ) 

MNTRY 

-  number  of  in-core  iterations 

NCOLS 

-  number  of  columns  read  from  disc  file  lAl 

NJOUT 

-  name  code  of  column  to  be  rejected 

NOTE  (4) 

-  40  character  comment 

X 

-  elapsed  CPU  seconds 

ROW 

BASIC 

-  state  of  a  column 

B 

-  basis  inverse 

IB 

-  basic  column  index 

lORG 

-  origin  of  basis  inverse 

IROW 

-  row  calling  parameter,  row  of  zero 

ITYPE 

“  type  of  stepj  1-unbounded,  2-column  to  zero, 
3-column  to  bound 

JCOL 

-  core  index  of  selected  column 

JORG 

-  core  origin  of  selected  column 

f 

JOUT 

-  column  to  be  rejected 

JPKT 

-  GUB  packet  of  column  selected 

m 

g-i6 

JPOS 


-  disc  index  of  column  selected 


KORG 

STEP 

THETA 

COLUMN 

ATBND 

BASIC 

B 

JCOL 

JKET 

JORG 

JPKTO 

JPKT 

jryPE 

KORG 

NCORE 

HDJST 

NULL 

PIKET 

CHECK 

ATBND 

BASIC 

B 

DJ 

JCOUNT 

JFBCH 

JNT 


-  origin  of  KEY  column  for  packet  JPKT 

-  step  to  current  row 

-  best  feasible  step 

-  logical  column  state 

-  logical  column  state 

-  basis  inverse 

-  core  position  of  selected  column 

-  core  position  of  key  for  JCOL  (if  in  GUB  row) 

-  origin  of  a  row  in  B 

-  current  stored  GUB  key  packet 

-  GUB  packet  of  new  column 

-  type  of  column  selected 

-  origin  of  KEY  in  AJ 

-  number  of  columns  in  core 

-  number  of  negative  DJ's  from  disk  read 

-  column  state 

-  PJ  value  for  ctirrent  KEY  JPKT 

-  state  of  column 

-  state  of  column 

-  basis  inverse 

-  current  column  sensitivity 

-  coimt  of  columns  processed 

“  number  of  columns,  checked  in  current  batch 

-  index  of  current  column 


G-17 


JORG 

JTYPE 

KORG 

KBCH 

NFBCH 

RiKEy 

PKTO 

PKT 

INSERT 

B 

DJ 

BMAX 

D  (15) 

ID  (15) 

JORG 

JPOSR 

JPOS 

JREJ 

NFBCH 

N 

KEYCH 

B 

IB 

lORG 

IRON 

JCOLPK 


-  origin  in  AJ  to  which  columns  are  read 

-  type  of  column  "being  processed 

-  origin  of  key  column  in  AJ 

-  nvffliber  of  columns  in  batch 

-  number  of  columns  retained  from  batch 

-  DJ  for  current  key  KORG 

-  packet  of  current  key 

-  packet  of  new  column,  JNT 

-  basis  inverse 

-  DJ  for  column  to  be  stored 

-  largest  DJ  of  stored  coliimns 

-  BJ's  of  stored  columns 

-  indices  of  stored  columns 

-  origin  of  vacancy  for  column  in  AJ 

-  disc  index  of  column  to  be  rejected 

-  disc  index  of  col\imn  to  be  stored 

-  origin  of  rejected  column  in  AJ 

-  number  of  colTimns  to  be  saved  from  batch 

-  number  of  columns  currently  saved 

-  basis  inverse 

-  disc  index  of  basic  column  for  current  row 

-  origin  of  a  row  in  B 

-  row  to  which  key  column  is  shifted  when  made  basic 

-  GUB  packet  of  column  being  moved  from  KEY 

-  column  to  be  moved 


JCOL 


jKEy 

JORG 

MPK 

SUM 

ravoT 

■ALVHk 

B 

DIVOT 

lORG 

lEOW 

JORG 

JT 

PIV 

SETBKD 

I 

J 

K 

DOT 

DOT 

DOTS 

M 

SUM 

X 

y 

BOUND 

BOUND 

IB 

J 


-  candidate  key  column 

-  origin  of  a  row  in  B 

-  row  of  column  which  was  KET 

-  temporary  storage 

-  column  to  he  pivoted  into  basis 

-  basis  inverse 

-  candidate  pivot  while  searching  for  best 

-  origin  of  pivot  row  in  B 

-  pivot  row 

-  origin  of  a  row  in  B 

-  basic  column  for  a  row 

-  pivot  used 

-  input  disk  column  index 

-  absolute  value  of  I 

-  new  state 

-  double  precision  inner  product  of  X  and  Y 

-  single  precision  inner  product  of  X  and  Y 

-  vector  dimension 

-  double  precision  accumulator 

-  input  vector 

-  input  vector 

-  value  of  column  bound  (or  10*^0) 

-  bound  index  in  IBDS 

-  input  disc  column  index 
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KETFITO 


I 

-  duimny  variable 

JAT 

-  potential  column's  in-core 

position 

JPKT 

-  GUB  packet  number  for  colvunn 

JTYPE 

-  column  type 

KEYFIND 

-  position  of  key  found 

KEY 

-  column  number  of  key  to  be 

located 

PKT 

-  GUB  packet  of  desired  key 

ESCAPE 

AALPHA 

-  "ALPHA" 

ABASIS 

-  "BASIS" 

ABETA 

-  "BETA" 

ADELTA 

-  "DELTA" 

ADJ 

-  "DJ" 

AGAMMA 

-  "GAMMA" 

AJAEEJ 

-  "JAREJ" 

AJA 

-  "JA" 

AKEY 

-  "KEY" 

AKAME 

-  "NAME  " 

B 

-  basis  inverse 

XCHECK 

ATBND 

-  logical  column  state 

AT 

-  dummy 

BASIC 

-  logical  column  state 

B 

-  basis  inverse 

CALLER 

-  calling  name 

lORG 

-  origin  of  a  row  in  basis 

inverse 
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JAJ 


-  disk  index  of  an  in-core  column 


JEND 

JORG 

J1 

J2 


EEPGEN  CODING  DEFINITIONS 


common/vecstg/ 

VNAME  (lO)  -  stores  resource  names 

Q  -  temporal^  storage  location  used  in  calculating 

savings  from  resource  storage 

-  length  of  period  under  consideration 

VLIFE  (lO)  “  expected  resource  life 


INH  (10,  l6)  -  not  used 


VCOST  (10  5)  -  the  five  costs  associated  with  each  resource 

are  stored  in  this  array;  in  order,  they  are 
salvage  and  truncation,  operating,  R^,  retention 
rate,  and  procurement.  (Explained  in  detail 
in  matrix  generator  description.) 

NAMEN  (lO)  -  not  used 

COSTS  (30,  3)  -  cost  of  operating  (l),  selling  (2),  or  truncating 

(3),  a  resource  in  the  1st  thru  30th  year  of  its 

life 


common/basics/  , 

CHAR  (5000,  ^4-)  -  storage  of  column  names  which  have  been  broken 
down  into  their  four  meaningful  parts 


CODE  (20)  -  storage  of  the  numbers  1  -  20  in  two  digit 

alphanumeric  fomn 

PER  (10)  -  pointers  for  two  digit,  alphanumeric  code  for 

periods 


lYR  (10) 

LIR  (10) 
common/outs/ 

OANDM  (20) 

SALE  (20) 

SAVE  (20) 

EXIST  (10,  20) 


-  initial  year  of  each  period 

-  last  year  of  each  period 

-  operating  cost  for  each  year 

-  salvage  or  tsnincation  value  for  each  year 

-  savings  from  resource  storage  for  each  year 

-  number  of  each  type  resoiirce  available  in  each 
year 
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PURCH  (10, 

STOR  (10, 
SALV  (10, 

PROG  (20) 
IROT  (20) 
common/params/ 

RDTOT 

IHYR 

LAST 

NV 

NP 

TOT 

TITLE  (4) 
COST 

LOCAL  VARIABLES 
SETUP 

PNAME 

lED 

IFT 

ITABLE 

IVT 

NPT 

NT 

NVR 

TEMP  (4) 


BLANK 


20)  -  number  of  each  type  resource  purc^sed  dn  each 
year  _  ^ ■  '■  _ 

20)  -  number  of  each  type  resource  stored  in  each  year 

20)  -  number  of  each  type  resource  disposed  of  at  end 
of  each  year 

-  procurement  funds  spent  during  each  period 
procurement  funds  available  during  each  period 

-  total  RScD  expenditures 

-  initial  year  of  problem 

-  last  year  of  problem 

-  number  of  resource  types 
,  -  number  of  subperiods 

-  number  of  subperiods  plus  1 

-  name  of  specific  solution 

-  total  cost  of  solution 


-  problem  title  (not  used) 

-  "ENDTABLE" 

-  "PERIOD" 

-  table  name 

-  "VEHICLE" 

••  period  tables  read  in 

-  number  of  tasks  (not  used) 

-  number  of  resources  read  in 

-  temporary  storage  for  column  names 

»t  II 


INSOLN 


lEND 


IKD 

ISTART 

S 

VAL 

'W 

X 

CIMFD 

PERIOD 

ONE 

SUM 

SUMT 

TCOST 

TOTAL 

TPROC 

PINFO 

TEMPI 

TEMP2 

BLANK 

PERIOD 

TOTAL 


-  last  year  of  resource  existence 

-  column  number  temporary  storage 

-  first  year  of  resource  existence 

-  ”S" 

-  column  value  temporary  storage 

-  'V" 

-  •'X" 

-  "PERIOD” 

-  "01" 

-  total  cost  for  a  period 

-  total  cost  for  all  periods 

-  temporary  storage  for  total  procurement 

-  "total" 

-  correction  factor  for  procurement 

jtemporary  storage  locations  for  alphanumeric  output 

^  II  f! 

-  "PERIOD" 

-  "TOTAL" 
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aalpha  -  • Alpha* 

(  LOCAL  -  IWIAIN  PR0GPA'W|»S  '^GCAP*^  )  .  .  _  _ _ _ 

ABAGlS  -  •BA«I«;‘  . *  . 

<  local  -  MAIN  PROGRAM ‘S  FTSCAPE  ) 

ABET A  -  ‘BEtA* 

*  (  local  -  MAIN  PROGRAM  tc  r«;CAPE  ) 

ADELTA  -  •De-LTA* 

.  (  local  -  MAIN  PROGRAM  IS  ESCAPE  )  _ _ _ 

AOJ  -  ‘DJ* 

(  local  -  main  program  I  c  trc^c.APE  ) 

AGAVMA  -  » Gamma* 

<  LOCAL  -  MAIN  PROGRAM**;  «='<;CAOE  I  _ 

AJAREJ  -  *JaREJ» 

(  local  -  MAIN  PROGRAM**;  fcCAPF  )  _  _ _  _ _ 

AJA  -  *JA* 

(  local  -  MAIN  program**;  FCCAPE  )  . .  . . 

AJ<BOOO)  -  rOLUMNB  IN  CORE  PLUS  BAB  IE  INVERSE 

(GLOBAL  -  MAIN  PROGRAM*S  COMMON  /CORE  /  ) 

AJ{100)  -  TfMPORARY  STORAGE  FOR  COLUMN  OF  MATRIX 

(  local  -  main  PR0GRAM*S  INITA  )  _  _  _ _ _ _ _ 

A<FY  -  ‘KFY*  ’  . .  .  ~  .  -  -  - 

(  local  -  MAIN  program*,*;  FSCAPE  ) 

ALPHA  (101)  -  WORK  ‘;PAC*=‘ »  ' USUALLY  CURRENT  COLUMN  '  INVERSE 
(GLOBAL  -  MAIN  PROGRAM *S  COMMON  /  A  /  ) 

ALPHA  -  COLUMN  TO  BE  WRITTEN  OR  READ 

(  local  -  MAIN  PROGRAM *S  10  )  _  _  _  _  _ 

ALPHA  -  TEMP  BTORAGE  FOR  ATTRITION 

(  local  -  matrix  GENERATOR *S  GENLCP  ) 

ALPHA  -  RATP  OF  DECREASE  IN  SALVAGE  VALU^ 

(  local  -  MATRIX  GENERATOR *S  YRCOST  ) 

ALPHA  -  COLUMN  TO  BE  PIVOTED  INTO  BASIS  . .  . . . .  . . 

(  local  -  MAIN  PROGRAM**:  PIVOT  )  _  _ _  _ _ 

alter  (288.  9)  -  array  USED  FOR  ELIMINATING  INFEAsTbLE  ALTERNATIVES  FRO'm'tASK 
(GLOBAL  -  MATRIX  GENERATOR* S  COMMON  /  ALTSTG  /  ) 

ANAME  -  *NAmE* 

(  local  -  MAIN  PROGRAM *S  PSCAPE  ) 

AT  -  OUMMV 

(  local  -  MAIN  PROGRAM *S  XCHECK  1  _  _  _ 

ATBND  -  *  ATpND»  . .  . .  -  , 

(  local  -  MAIN  program *S  MAP IN  ) 

ATBND  -  con  »MN  type 

(LOCAL  -  MAIN  PROGRAM *S  INVERT  )  _ 

ATBND  -  logical  COLUMN  STATE 

(  local  -  MA  IN  program  *S  ^XCHECK  ) _  _ _ _ _ 

(  LOCAL  -  MAIN  PROGRAM *5  CHECK  )  . .  . 

(  local  -  MAIN  PROGRAM*S  COLUMN  ) 

(  LOCAL  -  MAIN  PROGRAM *S  STATUS  ) 

AU  (16)  -  Tr-MP.  STORAGE  FOR  ALTERNATIVE*;  _  . . . 

(  local  -  MATRIX  generator *S  GENLCP  ) 
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- 


ImV=-R‘^E  . 

(  local  ~  MAIN  PROGRAM  •«;  L'’  > 

(  local  -  MAIN  PROGRAM'G  XCHECXC  ) 

(  local  -  MAIN  program  I  c  fgcapr:  ) 

(  local  -  main  program »c  oIVOT  ) 

(  local  -  main  PROGRAM'S  X^^YCH  ) 

(  local  -  MAIN  PROGRAM'S  INSERT  ) 
(  local  -  main  PROGRAM'S  CHECK  ) 

(  local  -  MAIN  PROGRAM'S  COl.UMN  ) 
(  local  -  MAIN  RROGPAM'S  RO«j>;  ) 

(  local  -  MAIN  PROGOAM'S  eTATU=  ) 

(  local  -  main  PROGRAM'S  RnIVAL  ) 

(  local  -  MAIN  PROGRAM'S  PpASCH  ) 

{  local  -  MAIN  program  ic  |VV'=-RT  1 

'  *<  local  -  MAIN  PROGRAM'S  MAP  IN  ) 

<  local  -  MAIN  PROGPAMtS  lO  ) 

P A^ I C  —  ' PAc I C ' 

(  local  -  MAIN  PROGRAM'S  maPIN  ) 


BASIC  -  COLUMN 


TYPE 

(  local  - 
<  local  - 


MAIN  PROGRAM'S  INVERT  ) 
main  PROGRAM'S  PPiMAL") 


pAsic  -  logical  column  state 

<  LOCAL  -  MAIN  PROGRAM'S  XCHPCK  ) 
(  local  -  main  PROGRAM'S  CHSCK  ) 

(  local  -  MAIN  PROGRAM'S  COI.UMN  ) 
(  local  -  MAIN  PROGRAM'S  STATU®  ) 
(  local  -  MAIN  PROGRAM'S ‘row  ) 


SBK  -  LOK'PR  POUND  ON  BRANCHING  VARIABLE 

(  local  -  MAIN  PROGRAM'S  pnCAVE  ) 

CKCiXP  -  VALUP  CE  BRANCHING  VARIABLE 

(  local  -  MAIN  PROGRAM'S  PPCAV2  ) 
BETAdOl)  -  WORK  SPACE,  USUALLY  VALUES  OE  PASIC  AND  KEY 
(GLOBAL  -  main  PROGRAM ' S.  COMMON  /  B  /  ) 


BL^NK  -  ' 


PL  I  ST  (  25  »  1  G I  ) 
ROUNDS  •  LO'a'pR 

BLO( 10 )  -  SPT 


{  local  -  REPORT 
(  local  -  REPORT 

-  branching  list, 

BOUNDS  AND  LINEAR 


GENERATOR 'P  INSOLN  ) 

GENPRATOR'S  PINFO  ) 

CONTAINS  PIGHt-HANO-SIDE  VECTOR,  PLU®  UP°pR 
COST  APPROXIMATIONS  EOR  NCM-L IN^AR _yAP I APLE 


(GLOBAL  -  MAIN 
OE  lower  BOUNDS 
(GLOpAl  -  MAIN 


PROGRAM • S  Common  /  CVP  / 
ON  NON-LiNPAP  VARIABLES 
PROGRAM*®  common  /  CV2  / 


) 


PLT(iO)  -  Temporary  storage  eor  blo 

(  local  -  main  PROGRAM'S  PnCAV2  ) 

(  local  -  MAIN  PROGRAM'S  nXPPN  ) 


BNOJ  -  bound  on  current  COLUMN 

(Global  “  main  program's 


COMMON  /  moves  / 


) 


POUNDS! I 
POUND  - 
B0( lOD) 


00)  -  values  of  upper  bounds 

(Global  -  main  program's  common  /  bound®  /  ) 

VALUE  OE  COLUMN  POUND  (OR  10  TO) 

(  local  -  MAIN  PROGRAM'S  BOUND  ) 

-  RtGHT-HAND-s  lOP  V=’C"^OR 

(GLOBAL  -  MAIN  PROGRAM 's  COMMON  /  CV^  /  ) 

-  LIMIT  ON  PPOCUREMENT  EXPENDITURES  IN  EACH  PERIOD 
(  local  -  MATRIX  GENERATOR'S  GENLCO  ) 


PUDG  (10) 


c  -  TEMP.  StOPAGF  fop  COST  DATA 

(GLOBAL  -  MATRIX  GENERATOR'S  COMMON  /  VECSTG  /  ) . . 

C  -  TEMPORAdY  STORAGE  LOCATION  USED  IN  CALCULATING  SAVINGS  FROM  RFSOURC' 
e^TORAGF 

(GLOBAL  -  REPORT  GENERATOR'S  COMMON  /  VECSTG  /  ) 

C  •-  'COLUMNS' 

(  local  -  MATRIX  GEN'^RATOP  '  S  MATFILL) 

caller  -  CAt  LING  NAMF  - - 

(  local  -  MAIN  PROGRAM'S  XCHFC<  ) 

CARO (8)  -  Image  OF  MAP  CARD 

(  local  -  MAIN  PROGRAM'S  MAP  IN  ) 

CFX  -  NO  LOnGsR  used 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  CV7  /  ) 

CHAR (5000.4)  -  STORAGE  OF  COLUMN  NAMES  WHICH  HAVE  BEEN  BROKEN  DOWN  I NTO 

their  four  meaningful  parts 

(Global  -  report  generator's  common  /  basics  /  > 

CMAX  -  TEMP,  COST  STORAGE  FOR  ORDERING  orsOURCEs 

(  local  -  MATRIX  GENFRATOR'S  GENLCP  ) 

CNAME  -  COLUMN  NAME  FOR  WHICH  RVAL  IS  BEING  OERIV^’O 

(  local  -  matrix  GENERATOR'S  MATFILL)  .  . . . . . 

C0DF(20)  -  STORAGE  OF  THE  NUMBERS  1  -  BO  IN  TWO  DIGIT  ALPHANUMSPIC  FORM 

(Global  -  report  gemerator'S  common  /  basics  /  ) 

COST  -  value  of  current  objective  function 

(  LOCAL  -  MAIN  PROGRAM'S  STATUS  ) 

COST  -  total  COST  QF  SOLUTION 

(GLOBAL  -  REPORT  GENERATOR'S  COMMON  /  “ARAMS  /  } _  _ 

COST  -  COST  OF  the  solution  returned  FROM  THE'  LP 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  CV4  /  )  . 

COSTl  -  SOLUTION  COST  FOR  LOWER  BRANCH 

(  local  -  MAIN  PROGRAM'S  PBCAV2  )  . 

COST 2  -  SOLU'^ION  COST  FOR  UPPER  BRANCH 

(  LOCAL  -  MAIN  PROGRAM'S  B_PCAV2  )_ _ _ _ _ 

COSTS  (30.3)  -  COST  OF  OPERATING  (  1  )  ."  *SSLL  IN®  (2)  OR  TRUNCATING  (3)  A 
RESOURCE  IN  THE  1ST  THRU  30TH  YEAR  OF  ITS  1. 1 FE 

(GLOBAL  -  matrix  GEN'^’RATOR *  S  COMMON  /  VECSTG  /  ) 

(Global  -  report  gensrator'S  common  /  vfcstg  /  ) . 

CO(lC)  -  VECTOR  FOR  LINEAR  APPROXIMATION  '=’0R  NON-LlNEAR  COST  FUNCTIONS 
(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  CV?  /  .)  .... 

(^XEMP  -  TEfia,  STORAGE  FOR  COLUMN  NAME 

(  local  -  MATRIX  GENERATOR'S  MATFILL) 

CTOL  “  COST  tolerance  FOP  INFEAS IB IL ITY 

(Global  -  main  progoam's  common  /  tols  /  „). 

CT(IO)  -  temporary  storage  for  CO 

(  LOCAL  -  MAIN  PROGRAM'*:  c,n<>AV2  ) . . 

(  local  ~  main  PROGRAM'S  NX°RN  > 

D'^'LTAIlOl)  -  NOT  USED  ..  .. 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  O  /  ) 

OERTOL  -  DUAL  ERROR  TOLERANCE.  NOT  USED 

(GLOBAL  “  MAIN  PROGRAM'S  COMMON  /TOLS  /  ) 

Qipr  —  difference  between  UPPER  AND  LOWER  POUND  FOR  A  VARI^APLF 
(  LOCAL  -  MAIN  PROGRAM'S  GETC  ) 

DiF(iO)  -  Differences  between  cost  functions  and  linear  approximations 
(  local  -  main  PROGRAM'S  NXPRN  ) 


DIVOT 


-  CANnlDATP  PIVOT  WHILE  SEARCHING  FOR  REST 

<  local  -  WAIN  PROGPAMiS  PIVOT  ) 

DJI  1 00)  -  values  of  CURRi^NT'  IN-CO'Rf  DJ*F 

(GLOoAL  -  MAIN  PROGRAM'S  COMMON  /  OJS  /  ) 

DJ  -  DJ  FOR  column  TO  RE  STORED 

(  LOCAL  -  MAIN  PR0GPAMf«;  lNC;crpT  ) 

DJ  -  current  column  cfnsIxivIty 

(  local  -  MAIN  PROGRAM  CHECK-  ) 

DJTOL  -  DJ  tOLERANCF  . . 

(GLOBAL  -  main  PROGRAM'S  COMMON  /  TOLS  /  ) 

DMAX  -  LARGe-ST  DJ  OE  STORED  COLUMNS 

(Global  -  main  program's  common  /  moves  /  > 

DOT  -  DOUBLE  RRECISION  INNER  PRODUCT  OF  X  AND  Y 

<  local  -  MAIN  RROGRAM'S  OOT  ) 

OOTS  -  single  P*REC IS  ION  INNER  PRODUCT  OF  x  AND  Y 

(  local  -  MAIN  PROGRAM'S  DOT  ) 

D(1B)  -  DJ'e  OF  STORED  COLUMNS 

(  local  -  MAIN  RROGRAM'S  iM«>rpT  ) 

DUALER  -  DUAL  ^■RROR*  UNIJSED 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  MOVES  /  ) 

DUMl  AND  DUM2  -  TEMPORARY  STORAGE  FOR  READING  UNUSED  SECTIONS  O'^" TAPE 
(  local  -  MAIN  PROGRAM'S  INITA  ) 

E'<BL(25)  -  c-KO  VALUE  ASSOCIATED  WITH  EACH  NODE  ON  THE  LiSt 
(Global  -  main  program 'c  common  /  cvp  /  ) 

EKO  -  COST  associated  WITH  THE  LOWER  BOUNDS  OE  THE  NODE 
(GLOBAL  -MAIN  PROGPAM'S  COMMON  /.CVS  /  ) 

ENDBR  -  'ENf''  . .  . .  . .  “ 

(  LOCAL  -  MAIN  PROGRAM'S  MA.PIN  ) 

Tpe;i  -  EPSIlON  value  FROM  Rpal  PARAMETPo  CARD 

(  local  -  MAIN  PROGRAM'S  RBCAVS  ) 

EPSI  -  VALUc-  of  new  basic  variable 

(  local  -  MAIN  PROGRAM'S  PRIMAL  ) 

ESIG  -  TEMPoR-APY  STORAGE  FOR  EKO  .  . . 

(  LOCAL  -  MAIN  RROGRAM'S  BBCAV2  ) 

EXIST!  10«.20)  -  NUMBER  OF  EACH  TYPE  RESOURCE  AVAILABLE  IN  EACH  YEAR 

(Global  -  report  generator's  common  /  ours  /  ) 

EXT  -  TIME  viHFN  TIME  LIMIT  ON  PROBLEM  WILL  EXPIRE 

(Global  -  main  program's  common  /  rvy  /  > 

FNAME  -  PROqLEM  TITLE  (NOT  USED) 

(  local  -  REPORT  GENERATOR'S  SETUP  ) 

EnAME  -  FIL*^  NAMc 

(  LOCAL  -  MATRIX  GENERATOR'S  GENLCO  ) 

Fxi(iO)  -  Cost  function  values  for  lowep  bounds 

(  local  -  main  PROGRAM'S  GETC  )  _ 

{  local  -  MAIN  PROGRAM'S  NXPPN  ) 

FX2{10)  -  Cost  function  values  for  upper  bound 
(  local  -  MAIN  PROGOAM'??  G^TC  ) 

FX2(10)  -  COST  FUNCTION  VALUES  FOR  SOLUTION  POINT 

{  local  -  MAIN  PROGRAM'S  NXBRN  ) 

GAMMA! 101)  -  NOT  U^FD  _ 

(Global  -  main  PROGOAMt*?  rr>MV0N  /  c  /  ) 

1  -  DUMMY  variable 

(  local  -  MAIN  opoGPAM'c  WBYFND  ) 
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1  -  INPUT  DICK  COUJi'^N  INOFX 

<  local  -  MAIN  PPOGRAM'S  CCTBND  ) 
lAl  -  DISC  rILS  FOR  MATRIX  LESS  GUB  ROWC 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  FILES  /  ) 

I  A?  -  DISC  c-IlF  for  PACKFD  MATRIX  LESS  Guc*  ROWS 

•  (Global  -  main  program's  common  /  files  /  ) 

IB  -  BASIC  /-OLUMN  INDEX 

(  local  -  MAIN  RROGRAM'S  ROW  ) 

IB  -  disc  indcx  of  basic  column  for  current  row 
(  local  -  MAIN  PROGRAM'S  KEYCH  ) 
in  _  BOUND  TNn=-X  IN  IRDS 

(  LOCAL  -  MAIN  PROGRAM'S  BOUND  ) 

IBAC  -  count  of  basis  VARIAnLES 

(  local  -  MAIN  PROGRAM'S  MAPOUT  )  _ 

IBASiSdOn  -  BASIC  COLUMNS  FOR  NON-GUB  ROWS 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  BASIS  /  ) 

I BOS (100)  -  COLUMN  INDICES  OF  BOUND  COLUMNS 

(Global  -  main  program's  common  /  bounds  /  ) 

IRMAX  -  MAXIMUM  NUMBER  OF  NODES  WHICH  MAY  RE  STORED  ON  BLIST 
(  LOCAL  -  MAIN  PROGRAM ppFCET  ) 

IBNO  -  COUNT  OF  BOUND  VARIABLES 

(  local  -  MAIN  PROGRAM'S  MAPOUT  ) 
ic  -  Current  cost  row 

(Global  -  main  program's  common  /  i  /  > 

I  cost  -  USER'S  cost  RO'W 

(Global  -  main  program's  common  x  i  /  > 

I col  -  TEMPORARY  STORAGE  FOR  COLUMN  INDEX 

(  LOCAL  -  MAIN  PROGRAM'S  BBCAV2  ) 

ICX  -  NUMBER  OF  VARIABLES  FOR  WHICH  COST  SLOPES  ARE  TO  BE  DERIVED 
(  LOCAL  -  MAIN  PROGRAM'S  GETC  ) 

ID  -  local  ROW  TYPE  BEING  PROCESSED 

(  local  -  MAIN  PROGRAM'S  SETUP  ) 

ID  -  COLUMN  NUMBER  FROM  MAP  CARD  '  . .  . . 

(  LOCAL  -  MAIN  PROGRAM'S  MAPIN  ) 

ID(15)  -  INnICES  OF  STORED  COLUMNS 

(  local  -  MAIN  PROGRAM'S  im«^fRT  ) 
lED  -  'ENDTABLP' 

(  LOCAL  -  REPORT  GENERATOR'S  SETU®  ) 
lEND  -  LAST  year  OF  RESOURCE  EX'l  STANCE 

(  local  -  REPORT  GENERATOR'S  INSOLN  ) 

IHVN  (10)  -  pointers  for  inherited  VEHICL=’S 

(  local  -  MATRIX  GENERATOR'S  GENLCP  ) 

I KEY  -  COUNT  OF  KEY  VARIABLES 

(  local  -  MAIN  PROGRAM'S  MAPOUT 
IKCST  -  TEMPORARY  STORAGF  OF  USER''s  COST  ROW  *  '  "  ' 

(  local  -  MAIN  PROGRAM'S  SETUP  ) 

IMAP  -  file  for  starting  and  terminating  oasis 

(GLOBAL  -  MAIN  PROGRAMis  COMMON  /  FILES  /  ) 

iNDic  -  Indicates  which  branch  (upper  or  lower)  is  being  solved 
(  LOCAL  -  MAIN  PROGRAM'S  oc«CAV2  ) 

IND  -  column  number  TEMPORARY  STORAGE  * . . 

(  local  -  REPORT  GENERATOR'S  INSOLN  ) 


INH  (10.  16)  -  number  of  FACH  TYPF  RFCOuRCF  inhfritpo  frow  fach  yfap 

(GLOBAL  -  MATRIX  G^ENFRATOR  •  F  COMMON  f^,_y^CFTG_/_) _ 

1NH( 10.16)  -  NOT  UFED 

(GLOBAL  -  REPORT  GFNFRATCP'F  COMMON  /  VFCFTG  /  ) 

IMHYRB  -  number  of  years  from  -which  VEHICLE’S  ARE  INHERITED 
(  LOCAL  -  matrix  GEN='RAT0R  •  F  GENLC^  ) 

INLL  -  count  OF  NULL  VAR  I  ABLE 

(  local  -  MAIN  PROGRAM,  s  MA=>OUT  )  _ _ _ 

INON  -  TEMP'^RARY  NUMBER  OF  NON  GUB  ROW^  FOUND 

(  local  -  main  PROGOAM.F  f=^tup  ) 

INRijT  -  FILP"  containing  input  matrix 

(Global  -  main  program'f  common  /  inout  /  >  . 

IlsjPuTM  •“  number  of  ROWF  IN  MATRIX 

(Global  -  main  program’s  common  /  inrut  /  ) _ 

INRUTN  -  NUMBER’  OF  columns  1N  MATRIX 

(Global  -  main  program’s  common  /  input  /  > 

invf  -  invert  frequency 

(Global  -  main  program”;  common  /  papams  /  > 


inv^’Rs 

INYR  - 
I  OPT  - 


-  ’InVFRS* 

(  local  -  MAIN  PROGRAM’S  mAPIN  ) . 

INITIAL  YEAR  OE  PROBLEM 

(Global  -  perort  generator common  /  papavc  / 
(jcco  TO  Flag  unbound'^d  solution 

(Global  -  main  program’s  common  /  cv^  /  ) . 


lORG  -  ORIGIN  of  basis  INVERSE 

(  LOCAL  -  MAIN  PROGRAM’S  LP  ) 

(  local  -  MAIN  PROGRAM’S  ROW  ) 

(  local  -  MAIN  PROGRAM’S  INVERT  ) 
lORG  -  ORIGIN  OF  PIVOT  ROV'  IN  B 

(  local  -  MAIN  PROGRAM’S  PIVOT  ) 

!ORG  —  origin  of  A  ROW  IN  BASIS  INV^'PSE 

(  local  -  MAIN  PROGRAM’S  XCH^-CK  ) 

(  local  -  MAIN  PROGRAM ’ S ■ <FYCH  ) 

(  local  -  MAIN  PROGRAM’S  B=-ASCH  ) 

I phase  -  CUnPFNT  LP  bhASE 

(GLOBAL  -  MAIN  PROGRAM’S  COMMON  /  I  /  ) 

1°!  -  current  location  of  pi  vector  In  basis 

(GLOBAL  -  MAIN  PROGRAM’S  COMMON  /I  /  ) 


IPT  -  ’PERIOD’ 

(  local  -  REPORT  GENERATOR’S  SETUP  ) 

IB(12)  -  STORAGE  FOR  INPUT  PARAMETERS  ON  INTEGER  PARAMETER  CARO 
(GLOBAL  -  MAIN  PROGRAM ’«  COMMON  /  CVl  /  ) 


IROWTYO(lOl)  -  USER’S  INPUT  ROW  TYPES 

(GLOBAL  -  main  PROGPAM’B  COMMON  /  ROU'TYP  /  )  _ _  _ 

IROWTP(IOO)  -  INDlCATcrs  ROW  TY^E  J  ALL  BET  TO  7ER0  bxcFPT  GENERAL  17^0  ubo^R 

ROIA-JD  ROWS  WHICH  ARE  SET  TO  A 

(  local  -  MATRIX  generator ’E  MATE  ILL) 

IROW  -  current  selected  row 

(Global  -  main  program’s  common  /  state  /  ) 

IROW  -  ROW  CALLING  PARAMETER.  ROW  OR  7EPO  . .  _ . .  . 

(  LOCAL  -  MAIN  PROGRAM’S  ROW  ) 

IROW  -  ROW  TO  WHICH  KEY  COLUMN  IS  SHIFTED  ’.•/HEN  MADE  BASIC 
(  local  -  MAIN  PROGRAM’S  <eyCH  ) 


I  ROW  -  P I VOt  POW 

(  local  -  MAIN  PROGRAM ’C  oiVOT  ) 
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I  START 


-  FIoST  YEAR  OF  RF«OURCF  EXICTANC®" 

(  local  -  REPORT  GEN|FRATOR»S  INSOLN  ) 

I  TABLE  -  TAnL'='  NAME  . . 

(  local  -  MATRIX  GENERATOR GENLCP  ) 

(  LOCAL  -  REPORT  GENERATOR SETUP  ) 

ITFMP  -  TEMO,  storage  FOR  FIRST  LETTER  OF  -RNAME 

(  local  -  matrix  GENERATOR'S  MATFILL) 

ITNINV  -  iteration  OF  NEXT  INVERT 

(Global  -  main  program's  common  /  darame  /  )  ' 

ITRN  -  iteration  count 

(Global  -  main  program's  common  /  state  /  > 

I  TYPE  -  ROW  TYPE 

(  LOCAL  -  MAIN  PROGRAM'S  INVERT  ) 

I  TYRE  -  TYPp  of  STEP*  1 -UNBOUNDED*  E-COlUMN  .2^EPOf  B-COLUMN  BOUND. 

(  LOCAL  -  MAIN  PROGRAM'S  ROW  )  .  . .  ~ 

(  local  -  MAIN  PROGRAM'S  PRIMAL  )  , 

IVT  -  »VEHIrL'=’'  * 

(  local  -  REPORT  GENERATOR SETUR  ) 

ix(ioo)  -  Indices  of  solution  columns 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  IXX  /  ) 

IX(IIC)  -  COLUMNS  IN  BASIC  SOLUTION  /  . . .  . . . 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  CV4  /  ) 

1X7(110)  -  rOLUMNS  IN  BEST  SOLUTION 

(Global  -  main  program's  common  /  cva  /  j 
iYR{ic)  -  Initial  year  of  each  period 

(Global  -  report  generator's  common  /  basics  /  )  _ 

J  -  ABSOLUTE  VALUE  OF  I 

(  local  -  MAIN  PROGRAM'S  S'='TBND  ) 

J  -  INPUT  Disc  column  index 

(  local  -  MAIN  PROGPAM'C  BOUND  ) 

J1  -  FIRST  COLUMN  IN  COLUMN  PRINTOUT 

(  local  “  MAIN  PROGRAM'S  XCHECK  )_  •  _ 

JE  -  LAST  Column  in  column  printout  ’  '  . . . 

(  local  -  MAIN  PROGRAM'S  XCHECK  ) 

JAJ  -  DISK  INDEX  AN  IN-CORE  COLUMN 

(  local  -  MAIN  PROGRAM'S  XCHECK  ) 

JAJ  -  potential  COLUMN'S  IN-CORE  PO«lTlON 

(  local  -  MAIN  PROGRAM'S  KEYFND  ) 

JAK(lOl)  -  dummy  storage  AREA  '  ’ 

(Global  -  main  program's  common  /  core  /  ) 

JAREJdOn  -  SET  TO  L  WHEN  C0RRE«iP0ND  ING  IN-CORE  COLUMN  REJECTED 

(Global  -  main  program's  common  /  core  /  )  ' 

jA(ioi)  -  In-core  column  disc  indic*=‘S 

(Global  -  main  program's  common  /  core  /  ) 

JBMAX  -  MAXIMUM  NUMBER  OF  WORDS  OF  INFORMATION  WHICH  MAY  BE  STORED  FOR 
EACH  NODE  I N  3L I  ST 

(  LOCAL  -  MAIN  PROGRAM'S  PRESET  ) 

JCOL  -  CURPc-NT  selected  COLUMN 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /STATE  /  ) 

JCOL  -  USER'S  COLUMN  INDEX  OF  COLUMN  PROCESSED 

(  LOCAL  -  MAIN  PROGPAW'S  MAPOUT  ) 

JCOL  -  CORF  POSITION  OF  SELFCTED  COLU'^N 

(  local  -  MAIN  PROGRAM'S  COLUMN  ) 

(  LOCAL  -  MAIN  PROGRAM'S  10  ) 

(  local  -  MAIN  PROGRAM'S  ROW  ) 


JCOL  -  COLUMN  TO  *?«=:  MOVED 

(  local  -  MAIN  PROGRAM  •«?_i<FrYCH  )  _ _ 

JCCLPK  -  GUP  oaCkT^T  OE  COLUMN’ 9E iNG  MOV'^0  PROM  kPy 
(  LOCAL  -  MAIN  program »S  <pYCH  ) 

JCOUNT  ~  COUNT  OF  COLUMN?;  PROCESSED 

(  local  -  MAIN  program  tc,  rMPCK  ) 

JFNO  -  ORIGIN  vacant  W0R<  cRACE  IN  AJ 

(  local  -  main  program ts  yrHe-C<  ) 
jfTRCH  -  NUMpER  of  columns  checked  in  current  patch 
(  local  -  MAIN  program  IS  CHECK  > 
jw;pv  —  cope  position  0^  KEY  EOR  JCOL  (IP  GltP  ROH' ) 

(  LOCAL  -  MAIN  PROGRAMiS  COLUMN  ) 

JKEV  -  CANDIDATE  K^Y  COLUMN 

(  local  -  MAIN  PROGRAMIS  KEYCH  ) 

JNCORE  -  NUMPER*  OE  COLLIMNS  IN  CORE 

(GLCPAl  -  MAIN  PROGRAMIS  COMMON  /  1.1  MS  /  ) 

(  local  -  MAIN  PROGRAMIS  maoOUT  ) 

JNSCAN  -  columns  Im  core  +  lose*  NUMBER  OF  RE'VlNDS  EIlE  lAl 

(  local  -  MAIN  PROGRAMIS  STATUS  ) 

JNT  -  INDEX  CP  COLUMNS  R^’AD  .  .. 

(local  -  MAIN  PROGRAMIS  10  ) 

JNT  -  CURRENT  COLUMN  IND«='y 

(  local  -  MAIN  program  IS  CHECK  ) 

(  local  -  main  PROGRAMIS  INVERT  ) 

JNT  —  LAST  column  READ  PROM  DISC  (IE  MNTRY  =  O) 

(  local  -  MAIN  PROGRAMIS  STATUS  )  • 

JNTO  -  INDEX  OE  LAST  COLUMN  READ  EPOM  DISC 

(  local  -  MAIN  PROGRAMIS  STATUS  ) 

JORG  -  CORE  origin  OE  SELECTED  COLUMN 

(  LOCAL  -  MAIN  PROGRAMIS  POW  ) 

JORG  -  ORIGIN  OE  VACANCY  EOR  COLUMN  IN  AJ 

(  local  -  MAIN  PROGRAMIS  INSC^RT  ) 

JOPG  -  ORIGIN  IN  AJ  TO  WHICH  COLUMN  IS. op AO 

(  local  -  MAIN  PROGRAMIS  CHRCK  ) 

(  local  -  MAIN  PROGRAMIS  INVERT  ) 

JORG  -  ORIGIN  OF  A  ROW  IN  B 

(  local  -  MAIN  PROGRAMIS  KPYCH  ) 

(  local  -  MAIN  PROGRAMIS  COLUMN  ) 

(  LOCAL  -  MAIN  PROGRAMiS  PIVOT  )'  .  ' 

JORG  -  ORIGIN  OF  A  COLUMN  IN  AJ 

(  local  -  main  PROGRAMIS  yCHECK  ) 

JOUT  -  REJECTED  COLUMN  INDEX 

(GLOBAL  -  MAIN  PROGRAM iS  COMMON  /  STATE  /  ) 
JOUT  -  COLUMN  TO  BE  REJECTED 

(  local  -  MAIN  PROGRAMIS  ROW  ) 

JOUTPK  -  GU®  PACKET  OF  COLUMN  REJECTED 

(  local  -  MAIN  PROGRAM  I e  noIMAL  ) 
jp  -  BASIC  COLUMN  pOR  A  ROW 

(  local  -  main  PROGRAMIS  PIVOT  ) 

JPKT  -  GUB  PACKET  OE  NEW  COLUMN 

(  local  -  MAIN  PROGRAMIS  COLUMN  ) 

(  LOCAL  -  MAIN  PROGRAMiS  ROW  ) 
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JPKT  -  GUB  PACKET  OF  CURRENT  COLUMN 

(  local  -  MAIN  PROGRAM  IB  FFAFCH  )  _  

(  local  -  MA  IN  PROGRAM  I B  KFYFNO  ) 

JPKTO  -  CURRENT  STORED  GUB  KEY  PACK‘=’T 

(  LOCAL  -  MAIN  PROGRAM »S  COLUMN  ) 

jPO<^  -  SELFCTFD  COLUMN  INDEX 

(GLOBAL  -  MAIN  PROGRAM tc  rCMMON  /  STATF  /  ) 

JROS  -  DISC  INDEX  OF  COLUMN  SELECTBO  . . .  . 

(  local  -  MAIN  PROGRAM tc  POW  ) 
jpQc,  -  DISC  INDEX  OF  COLUMN  TO  BF  STORED 

(  LOCAL  -  MAIN  PROGOAM • S  INSERT  ) 
jPOsPK  --  GUR  JACKET  OF  COLUMN  ENTERING 

{  local  -  MAIN  PROGRAM'S  PRIMAL  > 

JPOSR-  DISC  INDEX  OF  COLUMN  TO  BE  REJECTED  . . . . ^ - 

(  LOCAL  -  MAIN  PROGRAM ts  INSERT  ) 
jpc-j  _  ORIGIN  OF  REJECTED  COLUMN  IN  AJ 

(  LOCAL  -  MAIN  PROGRAM 'E  INSERT  ) 
jRHC  -  USER'S  INPUT  RHS 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  I  /  ) 

jcijQ(lO)  -  POINTERS  FOR  VEHICLE  SUBBCRId-^S  _ _  _ 

(  local  -  matrix  GENERATOR'S  YINTERP  ) 

JTYDE  -  VARIABLE  TYPE 

(  LOCAL  -  MAIN  PROGRAM'S  INVERT  ) 

JTYPE  -  column  TYPE 

(  LOCAL  -  MAIN  PROGRAM'S  KEYFND  ) 

(  local  -  MAIN  PROGRAM'S  CHECK .  _  _ . 

(  LOCAL  -  MAIN  PROGRAM'S'  COLUMN’)  ' 

K  -  NEW  STAtE 

(  local  -  MAIN  PROGRAM'S  CFTRND  ) 

K1  -  NOT  USe-D 

(Global  -  main  program's  common  /  oarams  /  > 

K?  -  NOT  USpD  _  -  .  -  - 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  PARAMS  /  ) 

K3  -  OUTPUT  CONTROL  PARAMETER 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  OARAMS  /  ) 

K4  -  XCHECK  CONTROL  PARAMETER  ^  . 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  PARAMS  /  ) 

<C5  _  MAXIMUM  LP  ITERATIONS  BEFORE  MAPOUT  . 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  PARAMS  /  ) 

KFF  -  'KEY' 

(  LOCAL  -  MAIN  PROGRAM'S  MARIN  ) 

KEY  -  INDEX  OF  KEY  COLUMN  TO  BE  LOCATED 

(  LOCAL  -  main  PROGRAM'S  lO  ) 

{  LOCAL  -  MAIN  PROGRAM'S  KFYFND  ) _ _ 

KPy  _  SV^/ITCH  TO  RETURN  KE'y  PROCESSING  TO  KEY  LOOR 
(  local  -  MAIN  PROGRAM'S  fpaSCH  ) 

KEYS ( 101 )-StOR AGE  OF  GU3  KEY  COLUMNS 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /BASIS  /  ), 

KEYFND  -  position  OF  KEY  FOUND 

(  local  -  MAIN  PROGRAM'S  KFYFND  ) .  ...  .  ,  .  . . . 

KOL  -  column  TO  BE  LOCATED  ON  EITHER  FILE'  OR  PACKET  NUMBER  OF  DESIRED  KEY 
C  local  -  MAIN  PROGRAM'S  ID  )  .....  ..  . 

KOLl  -  LAST  COLUMN  RFAD«  ON  FILE  lAl 

<  local  -  MAIN  PROGRAM'S  lO  )  ..  .  .  .  - 


KOL?  -  LAST  COLUMN  PEAD  ON  PILE  lA? 

(  local  -  MAIN  PROGPAM*S  10  )  _ 

<ORG  -  ORIGTN  IN  AJ  TO  WHICH  KEY  COLUMN  ic  PEAO 
(  local  -  MAIN  PROGRAM*'^  INVERT  ) 

KORG  -  ORIGIN  OE  KFY  COLUMN  EOR  PACKET  JOKT 

(  LOCAL  -  MAIN  PROGRAM'S  ROW  ) 

KORG  -  ORIGlf^  OE  KFY  COLUMN  IN  AJ 

(  local  -  MAIN  PROGRAM'S  CHECK  )  . . 

(  local  -  MAIN  PROGRAM'S  COLUMN  ) 

L  -  NUMBER  OE  GU°  RO’.'.'f 

(GLOBAL  -  MAIN  PROGRAM 'F  COM«/i0N  /  T  /  ) 

lact  -  laft  year  of  PRCOL'^’m 

(Global  -  report  genfrator's  common  /  raramf  /  ) 

L=-no  -  length  .OE  PFRIOO  UNOFR  consideration  . . . 

'  "(Global  -  matrix  generator's  common  /  vecftg  /  ) 
(Global  -  report  gfneratoris  common  /  vecstg  /  i 
^  IPPR  »  TEMo,  storage  EOR  remaining  useful  LIEE  OE  A  vehicle 
(  local  -  MATRIX  GENFRATOR'S  GENLCO  ) 

LSTMAX  -  MAXIMUM  length  WHICH  THE  BRANCHING  LIST  HAS  ACHIEVED 

(Global  -  main  program's  common  /  cvb  /  i 
LSTERF(25)  -  GIVES  LOCATIONS  OF  STORAGE  AREAS  "ON  THE  BR'aNCHING  L 
ARF  VACANT 

(  local  -  MAIN  PROGRAM'S  onCAVE  ) 

I  Y  -  LAST  YEAR  OE  A  drOBLEM 

(  local  -  matrix  GENERATOR'S  GENLCR  I 
LYP ( 1 0 )  —  last  year  OE  each  °pr I oo  .  . . . 

(Global  -  rfooRt  genfrator's  common  V  basics" /  i 
M  —  number  oe  active  internal  rows 

(Global  -  main  program's  common  /  i  /  ) 

M  -  NUMBER  RE  ROWS  IN  MATRIX 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  CVB  /  ) 

M  -  VECTOR  nIMENSlON  .  . . . 

(  local  ~  MAIN  PROGRAM'S  DOT  ) 

MAPBNO(IOO)  -  BOUND  COLUMN  INDICES  . 

(  local  -  main  PROGRAM'S  maROUT  ) 

V!ADpAS(100)  -  BASIC  COLUMN  INDICES 

(  LOCAL  -  MAIN  PROGRAM'S  MAHOUT  ) 

MAPKEY(10C0I  —  KEY  COLUMN  INDlCEc  . .  . 

(  local  -  main  PROGRAM'S  MAPOUT  ) 

MA°nLL(10)  -  NULL  COLUMN  INDICES 

(  local  -  MAIN  PROGRAM'S  MAPOUT  > 

MAXL  -  TEMP,  STORAGE  FOR  VEHICLE  LIFE 

(  LOCAL  -  matrix  GENERATOR'S  GENLC°  ) 

MAXTRY  -  MAXIMUM  NUMBfR  OE  IN-CORE  ITERATIONS  _ _ _ 

(Global  -  main  program's  common  /  lIms"/  > 

MC  -  LAST  LOGICAL  COLUMN 

(GLOBAL  -  main  PROGRAM'S  COMMON  /  I  /  ) 

MCOL  —  NUMBfR  OE  COLUMNS  IN  MATRIX 

(  local  -  matrix  GENFRATOR'S  GENLC®  ) 

mm  -  number  of  ELFMFNTS  in  OASIS  INVEOSF  . .  _ 

(  local  -  MAIN  PROGRAM'S  MAPOUT  ) 

(  local  -  MAIN  PROGRAM'S  V(\PIN  ) 

MNC  -  THF  NfGATIVE  OF  NCF 

(  local  -  MAIN  PROGRAM'S  PBCAV2  ) 


G-3^ 


/, 


NjMXRY  -  NlJMriER  OF  IN-CORE  ITFRATIONF 

<  LOCAL  -  MAIN  PROGRAM  «S  STATUS  _) 

MNX  -  THE  NfGATIVE  OF"  N" . . 

(  local  -  MAIN  PROGRAM ts  FFCAV2  ) 


MPl  -  M  PLUc  1 

<  (  local  -  MAIN  PROGRAM tS  MAHOUT  ) 

IwpK  _  ROW  Op  column  which  WAS  KEY 

(  local  -  MAIN  PROGRAM  tP  kr^YCH  ) 

MPLUS  -  NUMBER  6f='  POWP  IN  THE  ' MATRIX  INCLU'^ING  THp  COCT  ROW  (M+1  ) 

(Global  -  main  program •<?  common  /  cvo  /  ) 

MPL  -  M  PLUe  L 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  I  /  ) 

MROWS  -  USED'S  number  OF  ROWS 

(  LOCAL  -  MAIN  PROGRAM'S  LP  ) .  .  . . . 

N  -  NUMBER  OF  COLUMNS'  IN’mATR  IX  ' 

(GLOBAL  -  VAIN  PROGRAM'S  COMMON  /  CVB  /  ) 

N  -  NUMBER  OF  COLUMNS  CURRENTLY  SAVED 

(  LOCAL  -  MAIN  PROGRAM'S  INSERT  ) . .  . 

NAAM  -  NOT  (jSFD 

(  local  -  MAIN  PROGRAM'S  in  )  . . . 

namen  (10)  -  pointers  for  numbering  RPSOURCES 

(Global  -  matrix  generator's  common  /  vecstg  /  ) 

NAMEN(IO)  -  NOT  USED 

(GLOBAL  -  REPORT  GENERATOR'S  COMMON  /VECSTG  /  ) 
NAMES (5)  -  COLUMN  INDICES  FROM  MA®  CARD 

(  local  -  main  PROGRAM'S  MARIN  )  _  _ _  _ 

NAMES  (10)  -  TEMPORA'RY  POINTERS  '  ~ 

(  local  -  matrix  GENERATOR'S  GENLCO  ) 

NAME (600)  -  STATE  OF  EACH  VARIABLE  OR  COLUMN 

(Global  -  main  program common  /  names  /  i 

_  COLUMN  NAME*  OR  POSITION  IN  CORE  TO  WHICH  COLUMN  IS  READ 

(  LOCAL,  ..  M  A  1  N,„PR0GR  A  M'S,  I O  )  _  ,  . . .  . . . .  _ 

NB  -  NUMBER  of:"  BASIC  VAR  I  ARLES  IN  A  PACKET 

(  LOCAL  -  MAIN  PROGRAM'S  FEASCH  ) 

N3CH  -  NUMBPR  OF  COLUMNS  IN  BATCH 

(  local  -  MAIN  PROGRAM'S  CHECK  ) 


NBDS  -  NUMBPR  OF  BOUNDS 

( GLOBAL  -  MA  I.N,  PROGR AM_*  S  COMMON _/  BOUNDS  / 
NBVPKT  —  number  OF  BASIS  VARIABLE  Fn  SELECTED  GUB  ROW 
(  local  -  MAIN  PROGRAM'S  RRIMAL  ) 

NC  -  NUMBER  OF  BASIS  CARDS  TO  BE  READ  FROM  INPUT 
I  local  -  MAIN  PROGRAM'S  READ IN  ) 

NCF  -  NUMBED  OF  NON-LINEAR  VARIABLES 

(Global  -  main  program's  common  /  cys  /,  ) 

NCF  1  -  NCF  . *  ' 


(  local  -  MAIN  PROGRAM'S  BBCAV2  ) 
NCF4  -  NORA  +  3*  NCF 

(  LOCAL  -  MAIN  PROGRAM'S  BBCAy2  ) 
NCHGS  -  USER'S  NUMBER  OF  BOUND  COLUMNS 

(  LOG AL  -  MAIN  PROGRAM • S  LR . )  . 

NCOLS  -  NUMetER  OF  COLUMNS  READ  FROM  'DISC  FILE  lAl 
(  local  -  MAIN  PROGRAM'S  STATUS  ) 
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NCOLS  - 


NCRMAX 


LP  ) 


) 


ND'GLM 


NOEG  -  NUMBPR 
NDJ5  -  NUMBt^R 


< 

OF 

( 

OF 


mijvipfr  of  columns 

(  local  -  MAIN  OROGRAM»S  . . 

NCORF  -  NUMpER  OF  COLUMNS  fN  CORE 

(  local  -  main  orcgpamis  column  ) 

-  maximum  number  of  column*;  './hiuh  hll  »N  uowt 

(GLOBAL  -  MAIN  P90GOAMf«^  COMMON  /  LiMj  _ _ 

-  MAvlMljM  rejection  nUE  TO  r>FG='NFPACT 

local  -  MAIN  PROGRAMiv,  ooiMAL  )  _  .  ... 

o'^generacy  rejections 
local  -  main  program »S  primal  ) . 
negative  DJ’S 

(Global  -  main  program ‘s  common  /  siAit.  /  ) 

NOJST  -  NUMoBR  OF  NEGATIVE  BJ'S  FROM  OlSK  RE AO 

(  local  -  MAIN  PROGRAM»S  COLUMN  )  . . . . 

NOX(IO)  -  ImDICFp  OF  nON-LINEAR  VARIABL'^S 

(  local  -  main  program  is  MXHPN  ) 

-  NUMBr-R  OB  FlFMBniTS  IN  AN  ARRAY  MINUS  ONE 
(  local  -  MAIN  PROGRAM tS  GbTABO  ) 

MPvxz  -  Flags  when  new  best  solution  bound  and  should  bl  oui»ui 

(GLOBAL  -  MAIN  PROGRAM » S  COMMON _/  Cv7  /  ) _ _ 

NbwROW  -  ROW  bor  COLUMN  CHANGING  brcM  Kby  iO  BASIC 
(  local  -  MAIN  PROGRAM ‘S  oojviaL  » 

_  e^iGNlBlFS  feasible  SOLUTION  WHEN  sE  l  tOwAL 
(GLOBAL  -  MAIN  PROGRAM'S  COMMON  / 

IsjrpCH  -  NUMnBP  OB  COLUMNS  RETAINED  BRCM  BATCH 

(  LOCAL  -  MAIN  PROGRAM*S  CHECK  )  •  . . 

OP  GARB  (EMPTY  LOCATION  pPTWFEN  TWO  b j lLEO  LPLATIONS)  IN 


lO  1 
i:\f  f  f 


> 


N?FPP='E  - 
thF  BLIFT 


(  local  -  MAIN 
-GATIVF  or  NCF 

(  local  -  MAIN  PPOGOAMtc  NtXBONj  ) 

MINHP  -  nuMbBO  of  inherited  periods 

(  local  -  matrix  GEN=;RAT0R«S  GhNLCP  ) 

NI.V  -  NUMBER  OF  INHERITED  VEHICLE  TYPES 

(  local  -  MATRIX  GENERATOR'S  GENLC®  ) 
NJOUT  -  NAMP  CODE  OF  COLUMN  TO  BE  RBJECTPD 

(  local  -  MAIN  PROGRAM'S  S I  A l us  ) 

NL  (10)  -  TFMP.  STORAGE  USED  IN  FORMAiUNG  Ou t Pu i 

(  local  -  matrix  GEnfRAIOP'S  GENLC®  ' 


NBX  -  THE  M' 


OF  THE  lowest  bound  ON 


I^HE  0«  N-1«  UtHtNUiNU  ON  wittRS 


NVIN  -  INDEX 

IT  IS  USFD  , 

(  local  ■  main  PROGPAM'C  anCAVF  ) 

NN  (10)  TEMP,  STORAGE  uSEO  IN  FORMATTING  OUTPUT 

(  local  -  MATRIX  GENERATOR'*;  GENLCP  ) 

NOBOL  —  NUMnEP  OF  NODFS  ON  lIft 

(Global  -  main  program  is  common  /  cvh  /  ) 

NjOL  ~  INQBX  FOR  STORAGE  ON  BL I  ST 

(  local  “  MAIN  PROGRAM'S  boCAVS  ) 

NOP  -  NODE  NfUMBER 

(GLOBAL  -  MAIN  PROGRAM ' F  COMMON  /  CV  7  /  > 

NOPS  -  NODFe  FOLVBD 

(GLOBAL  -  MAIN  PROGPAM'F  COMMON  /  CVT  /  ) 


NORA  -  NUMRfR  of  ROWS  IN  THF  MATRIX  INCLUDING  THF  ORJFCTIVF  FUNCTION 

(  local  -  main  PROGRAM'S  Rr.r/^v2  )  -  - - 

(  LOCAL  -  MAIN  PROGRAM'S  RRFSFT  ) 

NOTF(4)  -  4r  CHARACTFR  COMMENT 

{  local  -  MAIN  PROGRAM'S  ST A I US  ) 

tsip-  -  number  op-  surdfriods  „  „  -- 

(GLOBAL  -  REPORT  GENERA i OR 's  COMMON  /  PaRmMs  /  ) 

NPCcH  -  NUMpER  OF  COLUMNS  TO  BF  SAV^U  l-ROM  BA .  cm . . 

(  local  -  MAIN  PROGRAM'S  iNSERl  ) 

NPP-RYR  (10.  3)  -  FIRST  AND  LAST  YEAR  OF  P^-RIOD  AND  NuMBtR  Oh  i  AsKo  IN  PtWlOU 

(Global  -  matrix  genera i or 'S  common  /  prdsic  /  i 

NPHASE  -  STORES  LP  OHASE  CODE 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  CV  /  ^  ) 

MPiP  _  numbfr  of  primal  I NFEAS I B IL I  I  1  Es . . . . . . 

(Global  -  main  program's  common  /  siaie  /  ) 

Mpp  -  of  pfriodf 

(  local  -  MATRIX  GENERATOR'S  GENLCO  ) 
notask  (10.  R)  -  ID  NUMBER  OF  EACH  TASK  IN  PERIOD 

(GLOBAL  -  MATRIX  GENERA  I  OR '  is  COMMON  /  PRUa  i  C  f  ) 

NPT  -  NUMPEP  OF  PERIOD  TABLES  READ  . . .  .  - 

(  local  -  matrix  GENERATOR'S  GENLCP  ) 

(  local  -  REPORT  GENERATOR'S  St  I  UP  > 

NRD  -  NUMBER  OF  VEHICLES  HAVING  R  AND  D 

(  LOCAL  -  matrix  GtN^'RAiOR'S  CtNLcP  )  ,  . 

isjoftj  -  NUMBc-R  OF  REJECTED  IN-CCRE  COLUMNS 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  p  i  *  .i.t  .  /  > . . 

ivjpoul  -  number  0'=’  ROWS  IN  MATRIX 

(  local  -  MATRIX  GtNERAiOR'ij  ctNLcP  ) 

NV  -  NUMBER  OF  RESOURCE  TYPES 

(Global  -  report  genera i or 's  common  /  HAWAVa  /  > 

N*irAN  -  NUMqER  of  disc  READS 

(Global  -  main  program's  common  /  lims  /  \  • 

NT  -  NUMBER  0'=‘  TASKS 

(  local  -  MATRIX  GENERATOR'S  GENLCP  ) 

NT  -  TOTAL  number  0»=‘  COLUMNS  (MC+INPUTN) 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  1  /  J 

NT  -  NUMBER  OF  TASKS  (NOT  USED) 

(  local  -  REPORT  GENERATOR'S  ®^ETU»  ) 

ntr  -  numbep  of  ta«:<  tables  read 

(  LOCAL  -  MATRIX  GENFRAToR,»S  GhNLC®  ) 

NTRY  ~  NUMBcR  OE  IN—CDRE  ITERATIONS 

(GLOBAL  -  MAIN  PROGRAM COMMON  ,  LlM_  ,  i 

NTSK  (9)  -  number  OF  ALTERNATIVES  IN  I  ASK 

(GLOBAL  -  MATRIX  GENERATOR 'F  COMMOivI  /.TSKSTG,/.  ) 

NULL  -  'NULL* 

(  local  -  MAIN  PROGRAM'S  MAPIN  )  . 

NULL  -  COLUMN  STATE 

{  local  -  MAIN  PROGRAM'S  COLUMN  ) 

NV  -  number  OE  VEHICLE  TYPES 

(  local  -  MATRIX  GENFRATCO'S  GENLCP  .)  ... 

NVFHU  (10)  -  INDICATES  IF  VEHICLE  USED  IN  PERIOD 

(  local  -  MATRIX  GENERATOR'S  GENLCP  )  .  . 
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NVR  -  OF  VFHICLF  TABLFc  RFAO  ^ 

(  local  -  matrix  G^MFRATOOtc;  GFSLC®  ) 

(  local  -  RePORr  <S?NFRAt6R  •  5  bt  i  uo  1 
NWAJ  -  ‘>T0RAG'=’  OIMENFION  OF  THE  ARRAY  AJ 

(  LOCAL  -  MAIN  PROGRAM  •!>  L®  ) 

_  index  OF  branching  variable 

■  (GLOBAL  “  MAIN  PROGRAM 'h 

NXnL<25)  -  INDEX  OF  BRANCHING  vARIA^.PLt 
(GLOBAL  -  MAIN  DROGRftMt.^ 

Nyq  _  t'^MPOoAPY  CTORAGF  FOR  NEXT  BRANCH  ING .  V«R  m^iLt 
(  LOCAL  -  MAIN  PROGRAM tS  o»CAva  ) 

Nvo  -  temp,  c-^orag-^  for  labt  year  op  period 

(  local  -  matrix  GENC^RAIORtb  t^tNLcP  ) 

OANDM(?0)  -  OPERATING  COPT  FOP  EACH  YEAR  . . 

(Global  -  rerori  ot-NERA iOR* ^  v-ommon  ,  ^  > 


COMMON  /  CvH  / 
FOP  tlACH  NOOt 


ONF  -*  •  0  1  * 
ONF  -  1 • 0 
ONF^^  -  -1*0 


(  local  -  REPORT 
(  local  “  MATRIX 


GENERATOR  »F  ClNI-0  ) 
generator • S  GENLCP  ) 

)■ 


pari<(  100) 


(  LOCAL  -  MATRIX  GENERA  I  OR • ^  GENLCP 
_  tfmPORARY  STORAGE  OF  OACKPD  C'^l.oMN 
(  LOCAL  -  MAIN  PROGRAM  •<?  10  ) 

TWO  digit*  alphanumeric  CODE  for 
_  redoRT  generator ' F  COMMON  /  BAS 


PPR(IO)  -  POINTERB  FOR 
(GLOBAL 

PPRIOD  -  ‘Pe^RIOD* 

(  local  -  REPORT 
(  LOCAL  -  REPORT 
PHI  AND  PH2  -  TEMPORARV  STORAGE 

(  local  “  MAIN  PROGRAM'S 
PH IX  -  COST  OF  A  NON-LINFAR  SOLUTION 

(GLOBAL  ~  MAIN  ^^ROGPAM'S 
PIKEY  —  DU  \/ALUE  FOR  CURRENT  KEY  JPKT 

(  local  ~  MAIN  PROGRAM'S 
PIKfY  -  OJ  POP  current  key  AT  KORG 

(  local  -  MAIN  PROGRAM'S 
oivtol  -  Piy/OT  tolerance 

(GLOBAL  -  MAIN 

°IV  -  PIVOT  u<=ED 

(  local  -  MAIN 
COUNT  OF  GUB 
LOCAL  -  MAIN 


PERIODS 
ICS  /  ) 


genera  I  or • s  c I nk  o  ) " 
genera  I  OR  *S  PlNl-O  ) 

OE  values  EROM  GEl^Hl 
PBCAV?  ) 

COMMON  /  CVS  /  ) 

COI.uMN  ) 


CHECK  ) 


PROGRAM'S  COMMON  /  I OLS  /  ^ 


P<T1 


-  temporary 

( 

PKT  -  actual  GUB 

( 

PKT  -  storage  OE 

( 

PKT  -  GUB  Packet 

( 

PKT  -  PACKET  OF 

( 


PKT  -  GUB  Packet 

(  local  - 

PKTO  -  GUB  PACKET  NUMBER 
PKTO  -  PACKc-T  OF  CURRENT 

(  local  “ 

(  LOCAL  - 


PROGRAM'S  PIVOT  ) 
ROW  PACKET  COLUMNS 
PROGRAM'S  SEIUR  ) 
ROW  COLUMN  BEING  PPOCESS'^’D 
local  -  main  PROGRAM'S  ^^'TUP 

colijmn  packet 

local  “  MAIN  PROGRAM'S 

number  OE  COLUMN  nFlNjG 
local  —  MAIN  PROGRAM'S 
NEW  COLUMN*  JNT 
local  -  MAIN  PROGRAM'S  CHECK  ) 
Qe  ofsIRED  key 

main  PROGRAM'S  K'=’YFND  ) 


) 


MAOIN  ) 
opOCESSED 

invert  ) 


OE  COLUMN  IN  AJ(kCRG) 
KEY 

MAIN  PROGRAM'S  CHfcCK  ) 
MAIN  PROGRAM'S  TNVfcR I 


» 


I 


PM  IN  -  VALUP  OF  LOWFST  BOUND  ON  BLI?T 

C  local  “  MAIN  PROGPAM»5?  Po.CA_V2_  ) _ _ _ 

PPRTOL  -  PRIMAL  PROOR” tolerance . . 

(GLOBAL  -  main  PROGRAM COMMON  /  • ^L»  /  ) 

prmler  -  prtmal  error*  UNUEED 

.  (GLOBAL  -  MAIN  PROGRAM  •«  OOWON  /  MOVEB  /  ) 

PR0C(20)  -  oROCURFMENT  FuNOB  FPENT  during  FACH  PhRlOU 

(GLOBAL  -  REPOR I  G^NFRAiOR’a  common  /  O ^  _ 

PR0T(20)  -  oROCUREMPNT  FUNDS  AVAILABLE  DuR ING  EACH  PER  I OD ' 

(Global  -  repori  genera i op •»  common  r  Owu  /  > 

PSIGL(25)  -  LOWER  BOUND  ASSOCIATED  WITH  EACH  NODE  ON  Lib  I 

(Global  -  main  program ts  common  /  cvr  /  ) 

PTASK  (10*  O)  -  multiplicative  FAC^roR  FOR  ALL  VALUE-S  IN  AssOClaitU  t  asK  ^0P 

EACH  PERIOD  .  .  .  ....  _  _ 

(GLOBAL  -  MATRIX  GENERA  lOR’a  COMMON  /  PRu«..is  /•  ) 

PURCH(  10*20)  -  number  of  EACH  TYPP  RPsOuRCfc  PuWCHA^shU  i^N  tacM  rtaH 
(GLOBAL  -  REPORT  GENERATOR'S  COMMON  /"  OUts’  /  ) 

R  _  rate  OF  increase  in  operating  COST  . .  . . . 

(  LOCAL  -  matrix  GENERATOR'S  YRCOst  ) 


R  -  'RHS'  .  _ 

(  LOCAL  “  MATRl’x' GENERAJOP'b  MAiFILL) 

R1  -  portion  of  operating  cost  refunded  for  MOlH  ball ING  REbOuRCt 
(  local  -  matrix  GENERATOR'S  YRCOb I  ) 


RDTOT  -  TOTAL  R  AND  D  EXPENDITURES 

(GLOBAL  -  REPORT  GENERATOR'S  COMMON  /  PARAMS  /  ) 
RHS (100)  -  CTORES  USER'S  CURRENT  RIGHT  HAND  SIDE  _  _  _  _ 

■  (Global' -*maTn  program's  Common  /  rhs  /  l 
RNAME(I20)  -  ROW  NAMES 

(  local  -  MATRIX  generator 'a  MATE  ILL) 


ROWS  -  'ROWc' 

(  LOCAL  -  MAIN  PROGRAM'S  MAPIN  ) 

RP(I2)  -  STORAGE  FOR  RFAl  PARAMETERS*  FIRST  FOUR  LOCATIONS  ARE  FOR  INPUT 

FROM  REAL  Parameter  Card*  rest  are  temporary 'storage" 


(GLOBAL  -  MAIN  PROGRAM ':3  COMMON  /  Cv  1  /  ) 

RTEMP  -  TEMP.  STORAGE  FOR  ROW  NAMES 

(  local  -  matrix  GENERATOR'S  MAtFILD 
RVALdOO)  -  VECTOR  OF  VALUES  IN  EACH  ROW  '=^0R  A  SPECIFIC  COLUMN 
(  local  -  matrix  GENERATOR'S  MA|FILL>_  _ _  _ 


S  -  'S' 

sale (20) 


(  local  -  REPORT  GENERATOR'S  INSOLN  ) 
SALVAGE  OR  TRUNCATION  VALUE  FOP  EACH 


(GLOBAL  -  REPORT  GENERATOR'S  COMMON  /  OUlb  /  ) 
SALV(10*20)  -  NUMBER  OF  EACH  TYPE  PESOUPC*^"  DISPOSED  6f~  A I  END  OF 

(GLOBAL  “  REPORT  GENERATOR'S  COMMON  /  OU t b  ^  J _ 

5AVE(20)  -  SAVINGS  FROM 'RESOURCE  STORAGE  FOR  EACH  YEAR 


t  ACH 


YFAP 


(GLOBAL  -  REPORT  GENERATOR'S  COMMON  /  OUTS  /  )  _ 

SECS  -  actual  CPU  CLOCK  TIME 

(  local  -  MAIN  PROGRAM'S  TIMEC  )  _ 

SIGMA( 100*4)  -  STORES  INFORMATION  WHICH  DEFINES  T HE  CURRfcNT  NODE 

(Global  -  main  program's  common  /  cvb  /  >  _  _ 

STEP  -  STEP  TO  CURRENT  ROW 

(  local  -  MAIN  PROGRAM'S  ROW  )  . . 

STOR( 10*20)  -  number  OF  EACH  TYPE  RESOURCE  STORED  IN  EACH  YEAR 
(GLOBAL  “  REPORT  GENERATOR'S  COMMON  /  OUT  S  /  )_ 
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SUM  -  VALU*^  of  VARIAFLF  RFFORF  FFA«;1BIL1TY  ADJU'iTMENT 

(  local  -  MAIN  PROGRAM 'F  RFACCH  _)  . . . 

CUM  -  JFMPOqARY  FTCRAGF 

(  local  -  MAIN  PROGRAM ‘S  <FYCH  ) 

SUM  -  DOURLc-  PRES  IF  ION  ACCUMULATOR 

<  local  -  MAIN  PROGRAM'S  DO f  ) 

SUM  -  TOTAL  COST  FOR  A  ^ERIOD 

(  local  -  REPORT  GLNERAiOR'.s  _ _ 

SUMIE  -  SUM  OF  INFFASIR IL ITIES 

(  LOCAL  -  MAIN  PROGRAM ts  cpA^CH  ) 

SUMT  -  total  COST  FOR  ALL  PERIODS 

(  LOCAL  -  REPORT  GENERATOR'S  CINFO  ) 

SV  -  START  v'^^'AP  OF  PRORLEM 

(  local  -  matrix  GfcNFRAlOR'S  UtNLuP  )_  . _  . 

T{100«10)  -  STORAGE  FOR  COLUMNS  OF  vATRJx  ASbOClAlEO  wIlH  N(JN-LINhAR 

variables 

(GLOBAL  -  MAIN  PROGRAM • S  COMMON  /  ryo  /  ) 

TCOST  -  TEMn  STORAGE  FOR  TOTAL  PROCUREM'^MT 

(  local  -  REPORT  GEMERAIOR'S  L!Nt-0  J 

TEMP  -  location  used  V.'HILE  SWAPPING  CONThNiS  Or  i  wO  LUC«j  lON_»  iN_aN  _aWRo  t 
(  local  -  MAIN  PROGRAM'S  G=’TASQ  » 

TPypi  -  TEMoORARY  storage  LOCATIONS  FOR  ALPHANUMERIC  OUTOyT 
(  local  -  REPORT  GENERATOR'S  “INFO  ) 

TPyP2  -  TEMOORARY  STORAGE  LOCATIONS  FOR  ALPHANUMERIC  OUTPUT 
(  local  -  report  GhNEPAlORi^  “iNrO  ) 

XEMP(4)  -  TcMP  STORAGE  ^CR  COLUMN  NAMc-s  _ •  _  _ _ 

(  LOCAL  -  REPORT  GEmpRATOR'S  St'TuP  ) 
theta  -  STED  CHOSEN  BY  ROW*  ADJUSTED  IN  PRIMAL 

(Global  -  main,  program's  common  /  moves  /  ) 
theta  -  BEST  feasible  STEP  ... 

(  local  ~  MAIN  PROGRAM '^>  POw  > 

TITLE(4)  -  alphanumeric  title  OE  problem  _  _ _ : _  _ 

(  local  -  MAIN  program  IS  B«rAV?  ) 

(GLOBAL  -  report  GENERATOR iS  COMMON  /  OARSMS  /  ) 

TMAX  -  maximum  time  BFEORE  MAPOUT 

(GLOBAL  -  MAIN  PROGRAM";  COMMON  /  PARAMs  /  ) 

TMO  -  TIME  cET  WAS  CALLED 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  I  MX  /  )  ..  '  . .  . 

TMP(IO)  -  temporary  storage 

(Global  -  main  program  is  common  /  cvi  /  ) 
tot  -  number  of  suboeriodc  plus  1 

(GLOBAL  -  REPORT  GENERA  I  OR  is  COMMON  /  PttRwMb  /  J 

TOTAL  -  I total I 

(  local  -  REPORT  GENERATOR  •  S  CINFO  )  ...  . 

(  LOCAL  -  REPORT  GENPRATORiS  PINED  ) 

TPROC  -  CORRECTION  FACTOR  FOR  PROCUR'^’MENT 

(  local  -  REPORT  GENPRATOPiS  CINFO  ) 

TSIG  -  temporary  storage  ASSOCIAtED  WlIH  p^O 

(Global  -  main  program  is  t^mmon  /  cv®  /  ) 

TSTO(IBO)  -  temporary  storage  .  .  .. _ _  ... 

(  local  -  MAIN  PROGOAMIc  opCAVE  ) 

TYPEI  -  first  word  on  map  card 

(  local  -  main  PROGPAMis  maPIN  ) 


TYPF'S  -  SFCONO  WORD  ON  MAP  CARO 

(  local  -  MAIN  PROGRAM'S  MA^IN  )  __  _ 

U  (7«  PBB,  o)  -  ARRAY  OF  TASK  ALI ERNA I  I vFs' 

(GLOBAL  -  matrix  GLNERA  i  OR  •  COMMON  /  i  aK.-i  i  O  V  > 

uB  (10)  -  calculatfd  upper  bounds  on  resources 
\  (  local  -  matrix  UENERa  I  op  •>>  cc,NLc°  » 

-  uppp-R  round  on  branching  variable 

(  local  -  MAIN  PROGRAM'S  BRCAV2  )  _  _  _  . . . 

UBK?  -  DIFFpRFNCF  between  URPFR  bound  and  value  hOH~ bkanCminc  v ah i able 
(  local  -  MAIN  PROGRAM'S  B'^CAVif  ) 

IJLO(IO)  -  SfT  of  upper  bounds  on  NON-LINFAP  VARIA'SL^’S 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  CVP.  /  ) 

ULT(IO)  -  TEMPORARY  STORAGE  FOR  ULO 

(  local  -  MAIN  PROGRAM'S  BPCAVH  )  _  _ 

UMAX  -  TEMP,  storage  FOR  GREATEST  QUANTITY  OF  A  SPECIE  1C  VEMiCLt ‘ WMILm  M ioh I 

BE  USED  IN  A  TASK  .  .  . 

(  local  -  MATRIX  GENERATOR'S  GENLCP  ) 

US  -  temporary  STORAGE  FOR  USP  .  . 

(  local  -  MAIN  PROGRAM'S  B^CAV?  ) 

USM  =  UZ/'d-E)  . .  _  - 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /.CVS  /  ) 

USP  =  UZ/(1+E)  . 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  CVS  /  ) 

UZ  “  COST  Op  PEST  non-linear  SOLUTION 

(GLOBAL  ^  MAIN  PROGRAM'S  COMMON  /  CV**  /  ) 

val  -  column  value  temoorary  storage  _  .  . . . . .  . 

{  local  -  REPORT  GENERATOR'S  INSOLN  ) 

VAL  -  TEMO.  STORAGE  FOR  VALUE  OF  SPECIFIC  ROW  AND  COLUMN  _ 

(  local  -  matrix  GENERATOR'S  MAIFILL) 

VCOST(lO*B)  -  THE  FIVE  COSTS  ASSOCIATED  WITH  EACH  RFSOUWCE  ARE  blOHED  IN 
this  array  -  IN  ORDER«  THEY  ARE  SALVAGE  AMD  TRUNCATION*  OHEHAtlNG*  H  AND  U* 

rPX‘=’NT10N  rate*  and  PROCUREMENT,  _ _  _ _ _  ,  _ _  . 

(GLOBAL  -  matrix’ GENFRATOR'S  COMMON  /  VECSiG  /  ) 

(GLOBAL  -  REPORT  GENERATOR COMMON  /  VECStG  /  ) 

VLIFE  (10)  -  MAXIMUM  LIFE  OF  RESOURCE  (VEHICLE) 

(GLOBAL  -  MATRIX  GENERATOR'S  COMMON  /  VECPIW.  ✓  I 

(GLOBAL  -  REPORT  GENERATOR'S  COMMON  /  VECS I G  /  ) 

VMIN  -  TEMo,  STORAGE  FOR  MINIMUM  QUANTITY  OF  VEHICLES  WHICH  CAN  Pfc  USED  FOR 
TABK 

(  LOCAL  -  matrix  GENFRATOR'S  YiNttRP  ) 

VNAME(IO)  -  STORES  RESOURCE  NAMES 

(GLOBAL  -  MATRIX  GENERATOR'S  COMMON  X  VfcCSIG  X  ) 

(GLOBAL  -  REPORT  GENERATOR'S  COMMON  /  VFCSTG  /  ) 


W  -  'W» 

(  local'-  REOORT  GENERATOR'S  INSOLN  ) 
X  -  INPUT  VPCTOR 

{  local  -  MAIN  PROGRAM'S  DOT  ) 


X  -  'X*  . .  . 

(  LOCAL  -  REPORT  GENERATOR'S  INSOLN  ) 

X  -  ELAPSFO  CPU  SECONDS  .  ...  _ 

(  local  -  MAIN  PROGRAM'S  STATUS  ) 

XCON(IO)  -  STORES  VALUES  FOUND  IN  X  WHICH  ARE  ASSOClATkU  WITH 
NON-LINFAR  vA^^IA^LFS 

(GLOBAL  -  MAIN  PROGRAM'S  COMMON  /  CV4  /  ) 


IHt 


XK  -  valuf:  nP  rranching  variable 

(Global  -  n!AIn  program i=:  co^'mon  /  cvb  /  >  _ 

XNXBL(35)  -  VALUE  OF  BRANCHING  VARIABLE  "“C®  EACH  NOOE 

(Global  -  main  program**;  r^MwoN  /  f:v«  /  ) 

XT(lO)  -  solution  values  for  non-linear  variable 
(LOCAL  -  MAIN  PROGRAM  * j  NaPPN  ) 

XX-  ELAPSED  TIME  ON  PROBLEM 

(  local  -  MAIN  PROGRAM  IS  TIM=:C  ) 

X(IOO)  -  values  of  solution  columns 

(Global  -  main  program ‘b  common  /  aa  /  » 

XdlO)  -  values  associated  with  columns  in  Ia 

(Global  -  main  program's  common  /  cv^  /  ) 
x7(iiO)  -  Values  associated  with  columns  in  ixz 

(GLOBAL  -  MAIN  PROGPAMtS  COMMON  /  CVA  /  )  . . 

Y  -  INPUT  VICTOR 

(  local  -  MAIN  PROGRAM'S  DOT  ) 

YAVL  (10)  -  YEAR  RESOURCE  FIRST  AVAILABLE 

(Global  -  matrix  genjc-oatpr* s  common  /  altstg  /  ) 

YEARS  (?1)  -  STORES  INHERITED  YEARS 

(  local  -  MATRIX  GENERATOR'S  GhNLCP  ) 

YRINT  (20)  -  scale  FACTOR  FOR  ALL  TftSKS  IN  PERIOD 

(  local  -  matrix  generator 'E  GENLCP  ) 

YT(IO)  -  DIFFERENCES  BETWEEN  SOLUTION  POINT  AND  LOWER  BOUNDS 
(  LOCAL  -  MAIN  PROGRAM'S  NXBRN  ) 

2  _  PARAMETfR  used  to  PACK  INDEX  COf^I- I C I tN  i 

(  local  -  MAIN  PROGPAM'S  10  )  •  _  . . 

GRHB  S  7==' >977  H9'BZ9IG9i  97= '9H 

(Global  -  main  progpam's  common  /  tols  /  ) 

2*;  -  parameter  used  TO  PACK  COEFFICIENTS 

(  local  -  MAIN  PROGRAM'S  10  ) 
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